Question

Дано целое число K, а также K наборов ненулевых целых чисел. каждый набор
содержит не менее двух элементов, признаком его завершения является число 0.
Найти количество наборов, элементы которых растут или убывают.
(Pascal ABC)

Answer 1

var a,k,n:integer;
begin
readln(k);
a:=1;
n:=-maxint;
while(a<>0) do
begin
read(a);
if(a>k)and(a>n)then n:=a;
end;
writeln(n);
writeln; !!!может быть тут нужно написать readln вместо writeln ?
end.