Даны два числа. Вывести большее из них — Pascal(Паскаль)

Program If6;

Var
  A, B: Integer;

Begin
  WriteLn('Введите числa A и B: ');
  ReadLn(A, B);
  If A > B Then
    WriteLn(A)
  Else
    WriteLn(B);

End.