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<b then a:=b;
   if a<c then a:=c;
   b:=a;
   c:=a;
   Write(a,' ',b,' ',c)
   End
else Write(a*a+b*b+c*c)
End.