1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
program Nanana; var x,m: integer; Y: array[1..10] of integer; begin x:=1; while x<=10 do begin readln(Y[x]); x:=x+1; end; m:=Y[1]; x:=1; while x<=10 do begin x:=x+1; if m<Y[x] then m:=Y[x]; end; writeln('max=', m); readln; end.