Вводится два целых числа a и b; вывести, какое из их

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

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

Задать свой вопрос
1 ответ
Var a, b :Integer; 
Begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if agt;b then writeln('Число a = ',a,' больше b = ',b)
else if bgt;a then writeln('Число b = ',b,' больше a = ',a)
     else writeln('Числа равны');
end.

Пример:
a = 5
b = 8
Число b = 8 больше a = 5
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт