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

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

Как правильно сделать?

Var a, b : Integer;

Begin

write ('a = ') ;

readln (a) ;

write ('b = ') ;

readln (b) ;

if a>b then writeln ('Число a = ', a,' больше b = ', b)

else if b>a then writeln ('Число b = ', b,' больше a = ', a)

else writeln ('Числа равны') ;

end.

Пример:

a = 5

b = 8

Число b = 8 больше a = 5