uses crt;
var d,f:text; i,k,n:qword; j:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
assign(f,'output.pas');rewrite(f);
for j:=1 to 7 do
begin
readln(d,k); i:=0; n:=0;
repeat
i:=i+1;
if (i mod 3=0)or(i mod 5=0)or(i mod 7=0) then n:=n+1;
until n=k;
writeln(f,i);
end;
close(f);
close(d);
end.
Xin lỗi mình chỉ làm đến dòng thứ 7.