Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны".

целочисленный тип - integer

Program n1;var a,b: integer;beginreadln(a,b);if a>b then write(a)else if b>a then write(b) else write('числа равны'); end.