s mod n <> 0
inc(i)

还有一种办法：
var
    m,n,x:longint;
begin
    readln(m,n);
    for x:=1 to m*n do
    begin
        if (x mod m=0) and (x mod n=0) then
        begin
            writeln(x);
            break;
        end;
    end;
end.

[quote]还有一种办法：
var
    m,n,x:longint;
begin
    readln(m,n);
    for x:=1 to m*n do
    begin
        if (x mod m=0) and (x mod n=0) then
        begin
            writeln(x);
            break;
        end;
    end;
end.[/quote]

你的begin和end太多了吧