Найти в круге 4 слова, соответствующих теме. Анимация в презентации. ​

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var n,a,i: real; begin readln(n); i: =1; a: =0; while i< =n do begin a: =a+power(i,3); i: =i+1; end; writeln(a); end.

вот программа

а) 

var i,n,s: integer; begin readln(n); s: =0; for i: =1 to n do begin s: =s+i; end; writeln(s); end.

б)

var a,n,i,s: integer; begin readln(n); s: =0; a: =2; for i: =1 to n do begin s: =s+a; a: =a+2 end; writeln('сумма первых ',n,' четных чисел равна ',s); a: =1; s: =0; for i: =1 to n do begin s: =s+a; a: =a+2; end; writeln('сумма первых ',n,' нечетных чисел равна ',s); end.

не