Даны 3 числа.если выполняется неравенство a,b,c, то напечатайте значение суммы, а иначе произведение чисел.

//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.