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

uses crt;var a,b,c,i,s : integer;beginreadln (a,b,c);for i:=1 to 1 do beginif (c>0) and (b>c) and (a>b) then begina:=sqr(a); b:=sqr(b); c:=sqr(c); writeln (\'A=\',a,\';\'B=\',b,\';\'C=\',c);break;end;if (a<0) and (b>0) and (c<0) and (a<>b) and (b<>c) and (a<>c) then beginif (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.