Program z_1;
var k,i:integer;
begin
k:=0;
for i:=10 to 99 do
if (i mod 2<>0) and (i mod 5<>0) then k:=k+1;
write(k);
end.
Program z_1;
var k,i:integer;
begin
k:=0;
for i:=10 to 99 do
if (i mod 2<>0) and (i mod 5<>0) then k:=k+1;
write(k);
end.