Помогите за 35 баллов

Question

Помогите за 35 баллов

---

Answer 1

1.

var x:real;

begin

read(x);

for var i:=1 to 10 do

print(i*x/10)

end.

2.

var n,i:longint;

r:real;

begin

r:=1;

read(n);

while n>0 do

begin

i+=1;7

r*=1+i/10;

n-=1

end;

write(r)

end.

3.

var x,a:longint;

begin

x:=-2;a:=3;

repeat

print(2*x*x+6*x-4*a);

x+=1;

until x>4;

end.