// Деление на 12 нацело
Program na12;
var i,n: integer;
begin
n:=0;
for i:= 1 to 1000 do
if (i mod 12 = 0) then
n:=n+1;
end;
writeln (n);
end.
// Деление на 12 нацело
Program na12;
var i,n: integer;
begin
n:=0;
for i:= 1 to 1000 do
if (i mod 12 = 0) then
begin
n:=n+1;
end;
writeln (n);
end.