Введите с клавиатуры три числа если А>В>С>0, то замените все числа их квадратами и выведите результаты на экран.

uses crt;

var a, b, c, i, s : integer;

begin

readln (a, b, c);

for i:=1 to 1 do begin

if (c>0) and (b>c) and (a>b) then begin

a:=sqr (a); b:=sqr (b); c:=sqr (c);

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

break;

end;

if (a0) and (c<0) and (ab) and (bc) and (ac) then begin

if (a>b) and (a>c) then begin b:=a; c:=a; writeln ('A=', a,'; 'B=', b,'; ' C=', c); break; end;

if (b>a) and (b>c) then begin a:=b; c:=b; writeln ('A=', a,'; 'B=', b,'; ' C=', c); break; end;

if (c>a) and (c>b) then begin a:=c; b:=c; writeln ('A=', a,'; 'B=', b,'; ' C=', c); break; end;

end;

s:=a+b+c;

writeln ('Сумма ', s);

end;

end.