Арифмитическая прогрессия

[microlab]

Составить программу которая выведет на экран все положительные члены арифмитической прогрессии с разностью D и первым членом А подсчитает их кол-во и суммую Спасибо

[Mad_Cat]

var i:integer;
a,d,s:real;
begin
Readln(a,d);
i:=0;s:=0;
While a>0 do
begin
s:=s+a;
i:=i+1;
a:=a-d;
end;
Writeln('Sum=',s);
Writeln('Count=',i);
readln;
end.

[microlab]

Спасибо большое