Даны целые числа a, b, c. Если a ≤ b ≤ c, то все числа заменить rкубами, если a>b>c, то…

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.