Zudina / KR_pascal / 1AR_POSL

const
n=9;
a:array[1..n] of integer=(19,19,17,14,18,9,0,13,14);
var

p,nk,i,maxp:byte;
begin
p:=1;nk:=0;maxp:=0;
for i:=1 to n do
if a[i]<=a[i+1] then p:=p+1
else if maxp<p then begin maxp:=p;nk:=i;p:=1;end else p:=1;
for i:=nk-maxp+1 to nk do
write(a[i]:3);
readln;
end.