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

Var a,b,c:integer;BeginRead(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)   Endelse Write(a*a+b*b+c*c)End.