найти сумму квадратов натуральных чисел от 2 до 5 с шагом 1 составить программу

var

i,s:integer;

begin

s:=0;

for i:=2 to 5 do

s:=s+i*i;

writeln(s);

end.