Найти максимальное из двух заданных на Паскале

Даны два числа X, Y. Определить и вывести на печать большее из них.

Program 1;
Var x, y, max: real;
Begin
Readln (x,y);
If x > y then max:=x else max:=y;
Writeln ('max=',max)
End.

Второй способ решения.

Program 2;
Var x, y, max: real;
Begin
Readln (x,y);
max:=y;
If x > y then max:=x;
Writeln ('max=',max)
End.

Третий способ решения.

Program 2;
Var x, y, max: real;
Begin
Readln (x,y);
max:=x;
if x < y then max:=y;
Writeln ('max=',max)
End.