{--------------------------------------------------------------------------}
{ Обработка текста: Разрешение ввода только цифр }
{--------------------------------------------------------------------------}
{ На входе - текст с цифрами (но будут вводиться только цифры }
{--------------------------------------------------------------------------}
uses crt;
const ENTER=#13;
var c: char;
begin
writeln('Вводите буквы и цифры:');
c := readkey;
while (c <> ENTER) do begin
if c in ['0'..'9'] then write(c);
c := readkey;
end;
writeln;
end.
