program p03;
uses Crt;

var  N1,N2,nasobek:longint;

begin
clrscr;
write('Zadej 1. cislo : ');
readln(N1);
write('Zadej 2. cislo : ');
readln(N2);
nasobek:=1;
repeat
 nasobek:=nasobek+1;
until ((nasobek/N1)=trunc(nasobek/N1)) and ((nasobek/N2)=trunc(nasobek/N2));
  writeln('Nejmensi spolecny nasobek cisel ',N1,' a ',N2,' je ',nasobek);
repeat until keypressed;
end.