Вводятся три целых числа.Определить каое из них наибольшее.

Question

Вводятся три целых числа.Определить каое из них наибольшее.

Answer 1

Var
i, x, max: integer;
begin
readln(max);
for i:=1 to 2 do
begin
readln(x);
if x>max then max := x;
end;
writeln(max);
end.