program massivchik;
type mas=array[1..20]of real;
var masx:mas;
i:byte;
procedure inp;
begin
writeln('vvedit vsi X:');
for i:=1 to 20 do read(masx[i]);
readln;
end;
procedure maxis;
var m:real;
begin
m:=masx[1];
for i:=2 to 20 do
if masx[i]>m then m:=masx[i];
write('maximalne tchislo =',m);
end;
begin
inp;
maxis;
readln;
end.
з блок скемою розбирайся сам(а), ато якось стидно