program euklidas;
program euklidas;
var a, b, dbd, c:longint; mbk:real;
begin
WriteLn('Įveskite du skaičius');
readln(a, b);
if (a > 0) and (b > 0) then begin
c := a*b;
while (a > 0) and (b > 0) do
if (a > b) then a := a mod b
else b := b mod a;
dbd := a + b;
mbk := c / dbd;
writeln ('DBD ', dbd);
writeln ('MBK ', mbk:3:4);
end;
if (a < 0) and (b <0) then
writeln ('Neigiami skaiciai negerai');
Readln;
end.