Нужно составить программу для сравнения двух чисел на паскале

Program chisla1; uses crt; var a,b : integer; begin write('Введите два числа: '); Readln(a,b); if a>b then writeln(a,'>',b); if a