Встроке записанно целое число.при записи этого числа была допущена опичатка: среди цифр находятся посторонние символы.исправьте строку с опичаткой, удалите лишний символ.

Var s:string;i:integer;
begin
i:=1; read(s);
while i<=length(s) do if (s[i]<'0') or (s[i]>'9') then delete(s,i,1) else i:=i+1;
write(s)
end.