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

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.