Question

помогите пожалуйста
даны 2 числа если они не равны, то найти их сумму, иначе найти их произведение ​

Answer 1

var a,b: integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

if not(a=b) then writeln('a + b = ',a+b)

else

writeln('a * b = ',a*b);

end.