a:='1234567890';
Writeln('Vvedite stroky');
Readln(st);
b:=length(st);
ind:=0;
For i:=1 to b do begin
   if pos(st[i],a)<>1 then begin
     Writeln('Vvedennaia stroka - ne celoe chislo');
     ind:=1;
     break;
   end;
end;
if ind=0 then Writeln('Vvedennaia stroka - celoe chislo');