Найти число M натуральных чисел и вычислить сумму - Turbo Pascal

Формулировка задачи:

Найти число M натуральных чисел ni, i=1,…M таких, что и ni2<N и вычислить сумму S=Ʃ (вверху над суммой m, внизу i=1) (ni-a)2/N (2 это в квадрате)где N, а – заданные числа, N – натуральное число. Помогите пожалуйста!

Решение задачи: «Найти число M натуральных чисел и вычислить сумму»

Листинг программы

var n,m,i:integer;
    a,s:real;
begin
repeat
write('Введите натуральное число n>0 n=');
readln(n);
until n>0;
write('Введите действительное число a=');
readln(a);
i:=1;
m:=0;
while i*i<n do
 begin
  m:=m+1;
  i:=i+1;
 end;
writeln('m=',m);
s:=0;
for i:=1 to m do
s:=s+sqr(i-a)/n;
write('s=',s:0:2)
end.

Объяснение кода листинга программы

Переменные: n, m, i: integer; a, s: real;
Ввод числа n, которое больше нуля, и числа a.
Инициализация переменной i значением 1 и переменной m значением 0.
Повторный ввод числа n, которое больше нуля, до тех пор, пока это так.
Ввод числа a.
Цикл while, который выполняется до тех пор, пока i*i меньше n.
Внутри цикла увеличиваем значение переменной m на единицу и значение переменной i на единицу.
После выхода из цикла while выводим значение переменной m.
Цикл for, который выполняется от 1 до m.
Внутри цикла вычисляем значение выражения sqr(i-a)/n и прибавляем его к переменной s.
После выхода из цикла for выводим значение переменной s с точностью до двух знаков после запятой.