Записи и строки
Дана строка. Если она представляет собой запись целого числа, то вывести 1; если вещественного (с дробной частью), то вывести 2; если строку нельзя преобразовать в число, то вывести 0.
Program Str;
var
st1:string;
err:integer;
int:longint;
rel:real;
begin
Writeln ('Vvedite stroky');
Readln (st1);
Val (st1,int,err);
if err <> 0 then
begin
Val (st1,rel,err);
if err <> 0 then Writeln ('0')
else Writeln ('2');
end
else Writeln ('1');
readln;
end.