Пожалуйста посчитайте написать программу на паскале. СПАСИБОНайти 11 последовательных натуральных чисел, сумма квадратов которых сама является квадратом натурального числа.

var
  i,n,s:integer;

begin
  n:=1;
  while true do begin
    s:=0;
    for i:=n to n+10 do s:=s+i*i;
    if s=Sqr(Trunc(Sqrt(s))) then break;
    n:=n+1
    end;
  Write('Сумма квадратов чисел на интервале [',n,';',n+10,'] = ');
  Writeln(s,' = ',Trunc(Sqrt(s)),'^2')
end.


Сумма квадратов чисел на интервале [18;28] = 5929 = 77^2