Помогите пожалуйста!Хотябы с 2-мя заданиями

1. a) i = 6; s = 18
б) i = 11; s = 64
2. 
a) 
a:=5;
b:=10;
repeat
b:=b-a;
a:=a-1;
until a<3;

б) 
a:=1;
b:=8;
while b>2 do
begin
b:=b-2;
a:=a*b;
end;