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

Var a,b,c,max:real;
begin
write('Введите a, b и c: ');
readln(a,b,c);
if (a>b) and (b>c) then
  begin
  a:=a*a;
  b:=b*b;
  c:=c*c;
  writeln('a=',a,', b=',b,', c=',c);
  end
  else if (a<0) and (b<0) and (c<0) and (a<>b) and (a<>c) and (b<>c) then
    begin
    max:=a;
    if b>max then max:=b;
    if c>max then max:=c;
    a:=max;
    b:=max;
    c:=max;
    writeln('a=',a,', b=',b,', c=',c);
    end
    else writeln(a+b+c);
end.