Помогите написать программу на паскале. СПАСИБО
Найти 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