Помогите с Паскалем.

var w:integer
A,s:real
begin
s:=0 w:=1;
s:=s=1/w
w:=w+1+s
write(n/w)
w=5
end.
тут нужно исправить ошибку.

Ужс.

var w,s:real;

begin

   s:=0;

   w:=1;

   s:=s+1/w;

   w:=w+1+s;

   write((s/w):8:3);

end.