program MultiplesOfSeven;
useSystem.SysUtils;
vai, count: Integer;
begicount := 0;
for i := 1 to 100 dbegiif i mod 7 = 0 thebegiWriteLn(i)Inc(count)end;
end;
ReadLnend.
program MultiplesOfSeven;
use
System.SysUtils;
va
i, count: Integer;
begi
count := 0;
for i := 1 to 100 d
if count = 8 thebegi
if i mod 7 = 0 the
begi
WriteLn(i)
Inc(count)
end;
Break;
end;
ReadLn
end.