Опять задана арифметическая прогрессия 2; 2,8; … . сколько членов прогрессии нужно сложить, чтобы полученная сумма стала > 20.

A := 2.0;
i := 1;
while (a < 20) do
begin
a := a + a + 0.8;
inc(i);
end;
writeln(i);

Ну наверно так: 
program qq;
 var i:integer; sum,num:real;
Begin
 num=2;
 sum:=2;
 i:=1;
 while(sum<=20)
 Begin
  i:=i+1;
  num:=num+0.8;
  sum:=sum+(sum+num);
 End;
 Writeln('Количество членов прогрессии: ', i);
End.