关于free pascal 的一些难题

楼上的说的很高深，其实这是简单问题，人家还是新手，不要把人搞昏了...
1.
Program ex1;
Var
Begin
readln(x,y);{用后面的空readln语句就不能用read}
for i:=1 to x do
if ((x*i) mod y)=0 then
begin
writeln(x*i);
break;{退出整个循环}
end;
readln;{运行程序是在此停顿一下，便于查看结果，是一个小技巧}
End.
{思想是用X的倍数去一个一个试，可以优化，但对初学者有启示作用}
2.
思想将该数不停除10，输出其余数（MOD），将原数除10取整（DIV）直到数变为0
3.
最白痴的方法，从1 到X去试...
PS：由于懒，后面的程序没写，写第一个给你当启示

(1)运用递归的方法，或者调用函数。需要应用的运算：同余；
（2）类比汉若塔游戏，编辑过程，用move去解决。
（3）把这五个整数分解质因数，用集合表示出来，然后求出它们的交集，就求出最大公约数了。