//PascalABC.NET 3.4.2
var x, max: integer;
procedure my_max(x1, x2: ^integer);
begin
if (x2^ > x1^) then x1^ := x2^;
end;
loop 6 do
x := readinteger();
my_max(@max, @x);
write(max);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
//PascalABC.NET 3.4.2
var x, max: integer;
procedure my_max(x1, x2: ^integer);
begin
if (x2^ > x1^) then x1^ := x2^;
end;
begin
loop 6 do
begin
x := readinteger();
my_max(@max, @x);
end;
write(max);
end.