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