program zadacha;
uses crt;
var b,k,i: integer;
begin
writeln('vvedi k');
readln(k);
for i:=10 to 99 do begin
IF i mod k =0 then inc(b);
end;
writeln('kol-vo dvuxznachnix chisel kraynix k=');
write(b);
program zadacha;
uses crt;
var b,k,i: integer;
begin
writeln('vvedi k');
readln(k);
for i:=10 to 99 do begin
IF i mod k =0 then inc(b);
end;
writeln('kol-vo dvuxznachnix chisel kraynix k=');
write(b);
end;