Ответ: Вот прога судя по схеме:

Но знак должен быть не <, а >

Если меньше то везде 0

var s,i:real;

begin

s:=0;

i:=0;

while i <= 6 do begin

   s:=s+i;

   i:=i+1;

   writeln('i',i);

   writeln('s',s);

end;

writeln(s);

end.

Запись по порядку (так и вноси в таблицу):

Шаг:1,2,3,4,5,6,7

ответ s: 0,1,3,6,10,15,21

ответ i: 1,2,3,4,5,6,7