Ввести с клавиатуры 2 целых числа ,вывести больше из них ,написать первое это число или...

Question

Ввести с клавиатуры 2 целых числа ,вывести больше из них ,написать первое это число или второе (написать на паскале)помогите пожалуйста

Answer 1

Var a, b: integer;
begin
    read(a); read(b);
    if (a > b) then
        writeln('Первое число больше второго')
    else
    begin
        if (a < b) then
            writeln('Второе число больше первого')
        else
            writeln('Числа равны');
    end;
end.

Comments

один елсе и скобки лишние

---

var
a, b: integer;

begin
readln(a, b);

if (a > b) then
writeln('Первое число больше = ', a)
else if (a < b) then
writeln('Второе число больше = ', b)
else
writeln('Числа равны');
end.