Напишите, пожалуйста, программу: даны целые числа а, в, с если а <= b <= c то все числа…

Program pr; uses crt; Var a, b, c,x1,x2,x3: integer; BeginWriteln ('Введите a, b, c'); readln (a, b, c); if (a <= b) and (b <= c) then Begin a: =a*a*a; b: =b*b*b; c: =c*c*c; Writeln (a); Writeln (b); Writeln (c); end; if (a>b) and (b>c) thenBegina: =a*(-1); b: =b*(-1); c: =c*(-1); Writeln (a); Writeln (b); Writeln (c); end elseif (a