//Pascal
var
a : array[1..4] of integer;
_max, i : integer;
begin
readln(_max);
for i := 1 to 4 do
readln(a[i]);
if (a[i] > _max) then
_max := a[i];
end;
writeln(_max);
end.
Справка обоснование 9ц9узащцзвщщащпщук8а8п8ущкща
//Pascal
var
a : array[1..4] of integer;
_max, i : integer;
begin
readln(_max);
for i := 1 to 4 do
begin
readln(a[i]);
if (a[i] > _max) then
_max := a[i];
end;
writeln(_max);
end.
Справка обоснование 9ц9узащцзвщщащпщук8а8п8ущкща