Даны 3 числа.Если выполняется неравенство A,B,C, то напечатайте значение суммы, а иначе...

Question

Даны 3 числа.Если выполняется неравенство A,B,C, то напечатайте значение суммы, а иначе произведение чисел.

Answer 1

//PascalABC.NET 3.0
var a,b,c : integer;
begin 
write('Введите первое число: '); 
readln(a); 
write('Введите второе число: '); 
readln(b); 
write('Введите третье число: '); 
readln(c); 
if (a <> b) and (a <> c) and (b <> c) then   
writeln('Выполняется неравенство A,B,C. Ответ: ',a+b+c) 
else    writeln('Ответ:' ,a*b*c);
end.