Ответ:
s:= 0;
for i:=1 to 5 do begin
s:=s+a;
a:=a+1;
end;
Объяснение:
s:= 0; //Переменной суммы s присвоили значение 0
for i:=1 to 5 do begin //начало цикла
s:=s+a; // к сумме прибавляется натуральное число a
a:=a+1; // вычисляется значение следующего за a натурального числа
end;