Вводится два целых числа 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.