Составьте программу для решения следующей задачи. Введите с клавиатуры три числа: А, В, С. Если 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.