Question

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

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.

1ecf4534ca78825787cb7dff3dcdd9f3.pas