Составить программу нахождения минимального числа из 2-х чисел

Var
x,y:integer;

begin
readln (x,y);
if (x <> y) then
if (x<y) then
writeln ('Min = ',x)
else
writeln ('Min = ',y);
end.