Даны 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.