Введите с клавиатуры число х.Обусловьте, является ли данное число дробным.Пример

Var s:string; i,k:integer;
Begin
 readln(s);
 i:=1;
 while (s[i]lt;gt;'.')and(ilt;gt;length(s)) do
   i:=i+1;
 delete(s,1,i);
 k:=0;
 for i:=1 to length(s) do
   if s[i]lt;gt;'0' then k:=1;
 if k=0 then writeln('Число целое')
  else writeln('Число дробное');
End.