level 9
program ex;
var
i:integer;
p:boolean;
begin
i:=0;
p:=true;
while p do
begin
i:=i+1;
if (i mod 2=1)and(i mod 3=1)and
(i mod 4=1)and(i mod 5=1)and
(i mod 6=1)and(i mod 7=0)
then p:=false;
end;
writeln(i);
end.
2014年01月11日 04点01分