Помогите написать программу на pascal!!! Использовать while. Я в 9-ом классе.

Program naconecto;vara,n:real;i:integer;BEGINi:=2;writeln('ckoJlbko pa3?');readln(n);
if n < 0 then begin n:=-n; end;
while (i<=n) do   begin    if (1+1/i>1) and (1+1/i <=1.5) then      begin        writeln('a=',1+1/i);      end    else      begin        writeln('a ne=',1+1/i);      end;    i:=i+1;  end;END.