Составить программу вычисления суммы квадратов первых N членов натурального ряда, каждое из которых при делении на M дает в остатке F. (Паскаль)

Предыдущий
вопрос Следующий
вопрос

program SumOfSquares;

var
N, M, F, i, count, sum: integer;

begin
sum := 0;

writeln('Введите значение N:');
readln(N);

writeln('Введите значение M:');
readln(M);

writeln('Введите значение F:');
readln(F);

count := 0;
i := 1;

while count < N do
begin
if (i mod M = F) then
begin
sum := sum + i * i;
count := count + 1;
end;
i := i + 1;
end;

writeln('Сумма квадратов первых ', N, ' членов натурального ряда, которые при делении на ', M, ' дают в остатке ', F, ' равна ', sum);

end.