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

Program Numbers; var a, b:integer; begin write ('Введите числа'); read (a,b); if a>b then write (a) else write(b); end.