Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны". целочисленный тип - integer
Program n1; var a,b: integer; begin readln(a,b); if a>b then write(a) else if b>a then write(b) else write('числа равны'); end.