Найти сумму положительных кратных 7 чисел,меньших 100.

Uses crt;
var i,s:integer;
begin clrscr;
s:=0; i:=7;
while i<100 do
begin
s:=s+i;
i:=i+7
end;
writeln(s);
end.