Дана последовательность символов, оканчивающаяся точкой. Выяснить, имеется ли в ней хотя бы одна цифра...

var ch: char;
begin
  repeat
    read(ch);
    if ch in ['0'..'9'] then
    begin
      writeln('есть цифра ',ch);
      exit;      
    end;
  until ch='.';  
  writeln('нет цифр');
end.