Вивести на екран більше з двох даних чисел

Var
   A,B:integer;
Begin
Write(Введите два числа: );ReadLn(A,B);
if Agt;B then Write(A)
else Write(B)
End.


Введите два числа: 3 1
3