ANTICHAT — форум по информационной безопасности, OSINT и технологиям

input a,b 
if a>b then x=a else x=b 
for s=x to a*b step 1 
if s/a = s/a and s/b = s/b then print s: end 
next s

program for3;
  var m,n,k, NOK: integer;
begin
  write(' m = '); readln(m);
  write(' n = '); readln(n);
for k:=m*n downto n do
    if (k mod m = 0) and (k mod n = 0) then NOK:=k;
  writeln(' NOK = ',NOK);
end.

readln;