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

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.