Составьте программы на Паскале для решения задач № 6–9 из заданий к § 10

Составьте программы на Паскале для решения задач № 6–9 из заданий к § 10. При этом отмените ограничения на количество операций в арифметическом выражении, сформулированные в условиях задач.

program z6;
var a, b, c, d, m, n: integer;
begin
   readln(a,b,c,d);
   m:=a*d+c*b;
   n:=c*d;
   writeln(m, '/' ,n)
end.

program z7;
var x, y: integer;
begin
   readln(x);
   y := sqr(1-sqr(x)+5*sqr(sqr(x)));
      writeln ('y=', y);
end.

program z8;
var x, y: integer;
begin
   readln(x);
   y := sqr(sqr(sqr(x)));
      writeln ('y1=', y);
   y:= sqr(x)*y;
      writeln ('y2=', y);
   y:=sqr(sqr(x))*y*x;
      writeln ('y3=', y);
   y:=sqr(sqr(x))*y;
      writeln ('y4=', y);
end.

program z9;
var a, b, c, m: integer;
begin
   readln(a, b, c);
   writeln ('A=', a, ' B=', b, ' C=', c);
   m := b;
   b := a;
   a := c;
   c := m;
   writeln ('A=', a, ' B=', b, ' C=', c);
end.