Дана строка.
Если она представляет собой запись целого числа, то вывести 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.