Определите значение переменной s после выполнения фрагмента алгоритма: s: =0 нц для i от 1 до 5 s: =s+i*i кц

program anastas65; var  a,x,y: integer; begin  write('введите число a ');   readln(a);   writeln('***                alphaeus                ***');   writeln('*** получение а^28 за 6 ходов ***');   x : = a*a; // получаем а^2  y : = x*a; // получаем а^3  x : = x*x; // получаем а^4  y : = y*x; // получаем а^7  y : = y*y; // получаем а^14  y : = y*y; // получаем а^28  writeln('      результат = ',y);   writeln('**********************************'); end.

program nadya18081998; const n=20; var  f,i,o,ns: string; begin  write('введите фамилию ');   readln(f);   write('введите имя ');   readln(i);   write('введите отчество ');   readln(o);   writeln('**********************************');   writeln(' фамилия: ',f);   writeln('        имя: ',i);   writeln('отчество: ',o);   writeln('инициалы: ',copy(i,1,1)+copy(o,1,1));   writeln('**********************************'); end.