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

Program asd;

uses crt;

var a, b, c, max:integer; r:real;

begin

Write ('Введите число A: ') ;

Readln (a) ;

Write ('Введите число B: ') ;

Readln (b) ;

Write ('Введите число C: ') ;

Readln (c) ;

If a>=b then max:=a

else

max:=b;

If c>max then

max:=c;

r:=a+b+c;

If (A>B) and (B>C) and (C>0) then

Writeln ('A = ', a*2,' B = ', b*2,' C = ', c*2) ;

If (A<0) and (B<0) and (C<0) and (AB) and (BC) and (CA) then

begin

A:=max;

B:=max;

C:=max;

Writeln ('A = ', a,' B = ', b,' C = ', c) ;

end

else

Writeln ('Symma: ', r) ;

end.