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

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.