！написать программу и блок схему. посчитать сумму квадратов нечетных чисел от 1 до 77

Var summa,k,i: integer;     nechet: boolean; begin    summa: =0;     for i: =2 to 77 do    begin        nechet: =true;         for k: =2 to trunc(sqrt(i)) do        begin        if i mod k = 0 then   begin                              nechet: =false;                               break;         end;         end;         if nechet then summa: =summa + sqr(i)        end;     writeln('summa=',summa); end.

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один