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

var

a,b,c: integer;

begin

readln(a,b,c);

if a=c then

 writeln('A = ', a*a, ' B = ', b*b, ' C = ', c*c)

else if ((a>b) and (a>c) and (b>c)) then

 writeln('A = ', a, ' B = ', a, ' C = ', a)

else writeln('A = ', b+c, ' B = ', a, ' C = ', 0);

end.