ПОЖАЛУЙСТА ПОМОГИТЕ!! СРОЧНО!! Даны 3 числа a,b,c если они не равны то замените все чилса...

Question

ПОЖАЛУЙСТА ПОМОГИТЕ!! СРОЧНО!! Даны 3 числа a,b,c если они не равны то замените все чилса наибольшим из них и выведите результат на экран иначе найдите и вывидите сумму квадратов этих чисел

Answer 1

Var a,b,c:integer;
Begin
Read(a,b,c);
if (a<>b)and(b<>c)and(c<>a) then
   Begin
   if a   if a   b:=a;
   c:=a;
   Write(a,' ',b,' ',c)
   End
else Write(a*a+b*b+c*c)
End.