program kartotiniai;
var dbd, mbk, sk, sk2 : longint;
procedure dbdmbk (sk1, sk2 : integer; var dbd, mbk : longint);
var ska, ska2, i, m, min, max : longint;
begin
if sk1 <= sk2 then
begin
min := sk1;
max := sk2;
end
else
begin
min := sk2;
max := sk1;
end;
dbd:=1;
for i := 1 to min do
if (sk1 mod i = 0) and (sk2 mod i = 0) then dbd := i ;
m := sk1 * sk2;
mbk := m ;
for i := max to m do
if (i mod sk1 = 0) and (i mod sk2 = 0) then
begin
mbk := i;
i:=m+1
end ;
end ;
begin
write (' Įrašykite skaičių ');
read (sk);
write (' Įrašykite kitą skaičių ');
read (sk2);
dbdmbk (sk, sk2, dbd, mbk);
writeln (' Didžiausias bendras daliklis - ', dbd);
readln;
writeln ('Mažiausias bendras kartotinis - ', mbk);
readln;
end.