составьте программу для решение следующей задачи. введите с клавиатуры три числа. если все числа отрицательны и не равны между собой, то замените числа их квадратами, иначе найдите и выведите сумму этих чисел. выведите результаты на экран. хелп, паскаль

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var (a,b,c):=ReadReal3;  if (a<>b) and (a<0) and (b<0) and (c<0) then begin    (a,b,c):=(a*a,b*b,c*c);    Println(a,b,c)    end  else Writeln('Сумма равна ',a+b+c)end.