Даны 2 целых числа. если они не равны, то вычислить произведение этих чисел; в противном...

Question

Даны 2 целых числа. если они не равны, то вычислить произведение этих чисел; в противном случае вычислить сумму. Вывести полученное число.

Answer 1

Var a,b,c : integer;
begin
writeln('Введите первое целое число');
read(a);
writeln('Введите второе целое число');
read(b);
if a=b then c:= a+b else c:= a*b;
writeln(c); 
end.