program chisla; var a,b,c: real; beginwrite('введите числа a,b и с через пробел: '); readln(a,b,c); if (a< =b) and (b< =c) then begina: =exp(ln(a)*3); b: =exp(ln(b)*3); c: =exp(ln(c)*3); end; if (a> b) and (b> c) then begina: =-a; b: =-b; c: =-c; end; writeln(a,' ',b,' ',c); end.; )
program chisla; var a,b,c: real; beginwrite('введите числа a,b и с через пробел: '); readln(a,b,c); if (a< =b) and (b< =c) then begina: =exp(ln(a)*3); b: =exp(ln(b)*3); c: =exp(ln(c)*3); end; if (a> b) and (b> c) then begina: =-a; b: =-b; c: =-c; end; writeln(a,' ',b,' ',c); end.; )