помогите с информатикой 7 класс, цикл с предусловием while, 3 и 4 задачи

program HelloWorld;varn, i : integer;b : boolean;begin i:=0; b:=false; read(n); while b=false do begin if i*i>n then b:=true else writeln(i); i:=i+1; end;end.

-------------------------

адача номер 4

------------------------------

program HelloWorld;varn, i, mem0, mem1, mem2 : integer;begin i:=0; mem0:=0; mem1:=1; read(n); writeln(mem0); writeln(mem1); while i<=n do begin i:=i+1; mem2:=mem0+mem1; writeln(mem2); mem0:=mem1; mem1:=mem2; end; end.

решение ниже в комментарии