急求 pascal语言

Question

给出一个整数N ，0<=N<=10000,N既不是2的倍数又不是5的倍数，求一整数S，S既是N的倍数，且S的每一位都是1

Answer 1

program yang;
var n,s:integer;
begin
readln(n);
s:=0;
if (n mod 2<>0)and (n mod 5<>0)then
begin
while s*9+1 mod s-1<>10 do
n:=n*n;
s:=n;
end;
write(s);
end.

Answer 2

var
n,m:longint;
begin
readln(n);
m:=1 mod n; write(1);
repeat
if m=0 then break;
m:=(m*10+1) mod n; write(1)
until false
end.

逐位枚举，m为当前余数