Напишите задачу в Pascal, на уровне 8-го класса ( с помощью циклического алгоритмам)

VarN:integer;S:real;BeginN:=0;S:=0;While S<=5 do   Begin   N:=N+1;   S:=S+1/N;   End;WriteLn('N = ',N)End.