напишите,пожалуйста, программу:даны целые числа а,в,с если а<=b<=c то все числа заменить кубами,если a>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<b) and (a<c) then Begin b:=a; c:=a; Writeln(a); Writeln(b); Writeln(c); end;if (b<a) and (b<c) then Begin a:=b; c:=b; Writeln(a); Writeln(b); Writeln(c); end;if (c<a) and (c<b) then Begin a:=c; b:=c; Writeln(a); Writeln(b); Writeln(c); end;readln;end.