⇢ 
Сергей Ивлев
ЛЕ
Лидия Ежова
var s,j: longint;
begin
s:=0;
for j:=100 to 999 do if j mod 13=0 then inc(s,j);
Writeln(S);
end.
АЯ
Анна Ясинская
Или так:
var i,s:longint;
begin
i:=104;
while i< 1000 do begin inc(s,i);inc(i,13);end;
write(s);
end.