Составить программу, которая вычисляет сумму квадратов первых N натуральных чисел до тех пор, пока сумма не превысит число M
ПОЖАЛУЙСТА!((((((

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var M:=ReadInteger('M=');  var (s,n):=(0,1);  while s<=M do begin    s+=n*n; n+=1    end;  Writeln('Сумма ',s)end.

//Язык PascalProgram Test;Var M, N, sum: integer;Beginsum := 0;N := 1;Write('Введите М: ');Readln(M);While sum <= M dobeginsum := sum + N * N;N := N + 1;end;Writeln();Writeln('Сумма = ', sum);End.