pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶；如果你每步跨3阶,那么最后剩2 阶；如果你每步跨5阶,那么最后剩4 阶；如果你每步跨6阶,那么最后剩5 阶

pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶；如果你每步跨3阶,那么最后剩2 阶；如果你每步跨5阶,那么最后剩4 阶；如果你每步跨6阶,那么最后剩5 阶
pascal 语言while 循环语句
在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶；如果你每步跨3阶,那么最后剩2 阶；如果你每步跨5阶,那么最后剩4 阶；如果你每步跨6阶,那么最后剩5 阶；如果你每步跨7阶,那么正好走完,一阶不剩,问你这条阶梯最少有多少阶?
我是新手,完全没思路啊,哪位帮忙把具体程序写在下面.

pascal 语言while 循环语句 在你前面有一个长长的阶梯,如果你每步跨2阶,那么最后剩1 阶；如果你每步跨3阶,那么最后剩2 阶；如果你每步跨5阶,那么最后剩4 阶；如果你每步跨6阶,那么最后剩5 阶
var i,ans:longint;
find:boolean;
begin
i:=0;find:=false;
while not find do
begin
i：=i+1;
if (i mod 2=1)and(i mod 3=2)and(i mod 5=4)and(i mod 6=5)and(i mod 7=0) then
begin
find:=true;
ans:=i;
end;
end;
end.