Найти сумму квадратов всех целых чисел от 1 до 20

Question

Найти сумму квадратов всех целых чисел от 1 до 20

Answer 1

Program P2;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=1 to 20 do s:=s+sqr(k);writeln('сумма = ',s); readln end.