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

Написать программу которая удаляет 3слово в предложении

Easy)

Тут дырявая система добавления программного кода, поэтому вот сразу исходник, его я уже тестировал)) https://yadi.sk/d/p6xBLX5Bj5cfY

Это не вирус как это простой .pas файл)

не открывается

varmax:integer;new:integer;beginwhile true dobeginmax:=-1;readln(new);if new mod 10 = 0 thnebeginif new>max thenbeginwriteln('Данное число больше предыдущего');end elsebeginwriteln('Число меньше или равно предыдущему');end;max:=new;end else writeln('Число не заканчивается на 0');end;end;