Program podaj;
Var
pod,lczyt:string;
Writeln('Podaj; ');
Read(pod);
(....)
Co TU umieścić
(....)
If lczyt='t' then Write('Podałes jakis text');
if lczyt='l' then Write('Podałes liczbe');
end.
Mam nadzieje ze zrozumieliscie o co mi chodzi.
Moze on tez sprawdzac czy zmienna to liczba jesli tak to True jesli nie to False
Program podaj;
Var
pod,lczyt:string;
liczba,kod: integer;
begin
Writeln('Podaj; ');
Read(pod);
(*....*)
Val(pod,liczba,kod);(*próba przetworzenia pod na liczba, gdy liczba wtedy kod=0, gdy text wtedy kod<>0*)
If kod=0 then lczyt:='l' else lczyt:='t';
(*....*)
If lczyt='t' then Write('Podałes jakis text');
if lczyt='l' then Write('Podałes liczbe');
end.