ПОМОГИТЕ С ИНФОРМАТИКОЙ ПЛИЗ ОЧЕНЬ НАДО:
1. Напишите на языке Паскаль программу вычисления y по формуле:
y = ( 1- x2 + 5x4 )2, где x - данное целое число.
2. Перепишите программу на языке Паскаль, исправив ошибки:
Program primer
Var a,b: integer;
Begin ;
ReadLn( a,b);
s=a+b;
m:=a*b;
d:=a:b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End
3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
а) y=x10 б) y=x15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c

Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.

Программы для решения задач - в прилагаемом файле.

1 задачаvar  x : integer;begin  readln(x);  x := sqr(1 - x*x + 5*x*x*x*x);  writeln(x);end.2 задачаProgram primer;Var  a,b,s,m: integer;  d : double;Begin  ReadLn(a,b);  s:=a+b;  m:=a*b;  d:=a/b;  WriteLn(s);  WriteLn(m);  WriteLn(d)End.3 задача  Тупой вариант без дополнительной переменной       а) y := x*x*x*x*x*x*x*x*x*x;      б) y := x*x*x*x*x*x*x*x*x*x*x*x*x*x*x;  Вариант покороче в записи, правильный с циклом, но нужна ещё 1 переменная i : integer      a)   y :=x;            for i := 1 to 9 do              y := y * x;      б)   y :=x;            for i := 1 to 14 do              y := y * x;4 задачаVar  a, b, c, reg: integer;  d : double;Begin  Readln  (a,b,c);  reg := a;  a := b;  b := c;  c := reg;  Writeln(a,' ',b,' ',c);End.