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

var
  st: string;
  k, l: integer;

begin
  readln(st);
  if (pos(',', st) = 0) or (pos('.', st) = 0) then
  begin
    val(st, k, l);
    if l <> 0 then
      writeln(0)
    else
      writeln(2);
  end
  else
    writeln(1);

end.