Объяснение:
var count, i: integer;
begin
count := 0;
for i:=1 to 100 do
if i mod 6 = 0 then count := count + 1;
writeln(count);
end.
