Дана строка.
Если она представляет собой запись целого числа, то вывести 1, если
вещественного (с дробной частью) — вывести 2; если строку нельзя
преобразовать в число, то вывести 0. Считать, что дробная
часть вещественного числа отделяется от его целой части десятичной точкой «.».

var  s: string;  t: integer;  t1: real;begin  readln(s);  if not (Integer.TryParse(s, t)) then    if not (Real.TryParse(s, t1)) then      t := 0    else      t := 2  else    t := 1;  writeln(t);end.