Если два числа равны , то вывести их сумму, а иначе модуль разности

Question

Если два числа равны , то вывести их сумму, а иначе модуль разности

Comments

Написать программу или что?

---

да

---

Паскаль?

---

да

Answer 1

Program task;
var a, b:integer;
begin
write('Введите числа : ');
read(a,b);
if a=b then writeln('Сумму чисел = ', a+b)
else writeln('Модуль разности = ',abs(a-b) );
end.