помогите пожалуйста составить программу

Ответ:

1) var

y, r, d, a: real;

begin

readln(r);

readln(d);

readln(a);

y:=sqrt((sqr(r)+d)/((sqr(a)*sqr(a)*a)-(2*a)));

writeln('y = ',y);

end.

2) var

x, y: integer;

begin

readln(x);

if ((x=6) or (x=-6)) then y:=5+3*x else

if ((xgt;=-5) and (xlt;gt;5)) then y:=2*sqr(x) else

if (xlt;=5) then y:=x;

writeln('y = ',y);

end.

3) var

s, x, p: real;

i, k: integer;

begin

readln(x);

readln(p);

readln(k);

s:=0;

for i:=1 to k do

s:=s+((cos(x))/(i+p));

writeln('s = '.s);

end.

Разъясненье: