valgrisa

Ответ:

program test;

var i,s:integer;

begin

s:=0;

i:=1;

repeat

if i mod 7 = 0 then s:=s+i;

i:=i+1

until i>100;

write(s)

end.