Домашняя работа.

1)Алгоритм сложения двух простых дробей
   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.
2)Алгоритм вычисления y по формуле y=(1-x^2+5x^4)^2
   Program Two;
   Var x, y: integer;
   Begin
   Readln (x, y);
   y:=SQR(1-x*x+5*x*x*x*x);
   Writeln(y);
   End.
3)Алгоритм вычисления выражений:
   1. y=x^8  2. y=x^10   3. y=x^15  4. y=x^19
   1. Program Three;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     2.Program Four;
       Var x, y: real;
       Begin
       Readln (x,y);
       y:=x*x*x*x*x*x*x*x*x*x;
       Writeln(y);
       End.
     3. Program Five;
       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 Six;
       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.
4) Алгоритм циклического обмена
    Program Seven;
    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.