В компьютер вводятся два числа. если первое больше второго то вычтслить их сумму иначе произведение после этого компьютер должен напечатать текст задача решена

Составим программу сравнивающую числа:

Program 1;

Var x, y, s, p: integer;

begin

writeln ('введите первое целое число ');

readln (x);

writeln ('введите второе целое число ');

readln (y);

if x > y then

s: = x + y;

writeln ('Задача решена. Сумма равна', s);

else

p: = x * y;

writeln ('Задача решена. Произведение равно', p);

end.

Проверим работу программы последовательно пройдясь по коду:

Вводим с клавиатуры любые два числа:

1) x = 10;

y = 5;

Приступаем к сравнению:

x > y - верно, значит:

s = x + y = 10 + 5 = 15.

На экран выведется:

Задача решена. Сумма равна 15.

2) x = 3;

y = 7;

Приступаем к сравнению:

x > y - не верно, значит:

p = x * y = 3 * 7 = 21.

На экран выведется:

Задача решена. Произведение равно 21.