Домашняя работа,§35 #10

6)Program One;
   Var a, b, c, d, e, f: integer;
   Begin
   Readln (a, b, c, d, e, f);
   e:= a*d+c*b;
   f:=b*d {знаменатель};
   writeln (e,f);
   end.
7)Program One;
   Var x, y: integer;
   Begin
   Readln (x, y);
   y:=SQR(1-x*x+5*x*x*x*x);
   Writeln(y);
   End.
8)1. y=x^8  
   2. y=x^10   
   3. y=x^15  
   4. y=x^19
   1. Program One;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     2.Program Two;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     3. Program Three;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     4. Program Four;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
9)Program One;
    Var A,B,C,D: real;
    Begin
    Readln (A, B, C, D)
    D:=A;
    A:=C;
    C:=B;
    B:=D;
    Writeln (A, B, C);
    End.