1.
var x:integer; y:real;
begin
write('x='); readln(x);
y:=x*x;
y:=(1-y+5*y*y)/2;
writeln('y=',y);
end.

Пример работы программы:
x=5
y=1550.5

2.
Program primer;
Var a,b,s,m: integer; d:real;
Begin ;
ReadLn(a,b);
s:=a+b;
m:=a*b;
d:=a/b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.

Пример работы программы:
6
10
16
60
0.6

3.
 y=x10:
a:=x*x;   //2
b:=a*a    //4
y:=b*b*x; //10

 y=x15:
a:=x*x*x; //3
b:=b*b*b; //9
y:=a*a*b; //15

4.
var a,b,c,d: integer;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
d:=a;
a:=b;
b:=c;
c:=d;
writeln('a=',a,' b=',b,' c=',c);
end.

Пример работы программы:
a=1
b=2
c=3
a=2 b=3 c=1