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

Question

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

целочисленный тип - integer
Как правильно сделать?

Answer 1

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