Вопрос, который вызвал трудности

Напишите программу которая вводит последовательность целых чисел заканчивающихся нулем и определяет является ли она возрастающей

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Напишите программу которая вводит последовательность целых чисел заканчивающихся нулем и определяет является ли она возрастающей

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
max:integer;
new:integer;
begin
while true do
begin
max:=-1;
readln(new);
if new mod 10 = 0 thne
begin
if new>max then
begin
writeln('Данное число больше предыдущего');
end else
begin
writeln('Число меньше или равно предыдущему');
end;
max:=new;
end else writeln('Число не заканчивается на 0');
end;
end;