var m,n,l:integer;
Begin
writeln('m,n');
readln(m,n);
if l mod n=0 and l mod m=0 and l<=(m*n) then
write (l);
readln(l);
end.
вроде так
var m,n,l:integer;
Begin
writeln('m,n');
readln(m,n);
if l mod n=0 and l mod m=0 and l<=(m*n) then
write (l);
readln(l);
end.
вроде так