Napíšte program na nájdenie najmenšieho spoločného násobku.

[kings13]

Ak to už niekto máte hotové, skopírujte mi sem pls zdrojový kód.Dík

[palo1231231]

program nsn1; {nazov}
uses crt;
var a,b,sucin:real; {vstupne premenne}
nsn:real;


begin
clrscr; {zacat}
writeln('zadaj prve cislo'); {napise pc}
readln(a); {napisem ja}
writeln('zadaj druhe cislo');
readln(b);
sucin:=a*b; {funkcia sucin}
while a<>b do {prikaz na najmensi spolocny nasobok}
if a>b then a:=a-b else b:=b-a;

nsn:=sucin/a; {vysledok}
writeln('najmensi spolosny nasobok je',nsn:8:2);
readln(b);

end. {koniec}

[kings13]

díky moc