Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В и С. Если они не равны, то замените все числа наибольшим из них и выведите результаты на экран. Иначе, найдите и выведите сумму квадратов этих чисел.

program abc;var a,b,c:integer;beginreadln(a,b,c);if ((a=b) and (b=c) and (c=a)) then writeln(sqr(a)+sqr(b)+sqr(c))else if (a>b) and (b>c) then begin b:=a; c:=a; writeln('a=',a,' b=',b,' c=',c) endelse if (b>a) and (c<b) then begin a:=b; c:=b; writeln('a=',a,' b=',b,' c=',c) endelse if (c>a) and (c>b) then begin a:=c; b:=c; writeln('a=',a,' b=',b,' c=',c) end;end.