program Nanana var integer array 10 of integer begin while 10 do begin

 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.