Напишите программу, которая в последовательности натуральных чисел определяет максимальное однозначное число. Кроме того, если есть число 19, то выводит «Yes», если его нет, то выводит «No». Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 10 000
Возможное решение:
var n,i,a,min: integer;
begin
readln(n);
min:=30001
for i:=1 to n do
begin
readln(a)
if (a mod 10 = 4) and (a < min)
then min:= a;
end;
writeln(min)
end.