Кто-нибудь помогите написать программу на pascal!!! Нужно использовать while. Я учусь в 9-ом.

Var a,l,s:real;
Begin
Read(a);
S:=1+1/2;
L:=2;
While s>=a do
Begin
Writeln(s);
L:=l+1;
S:=1+1/l
End
End.