procedure Kozos ( a, b: in POSITIVE; lnko, lkkt: out POSITIVE ) is
	x: POSITIVE := a;
	y: POSITIVE := b;
begin
	while x /= y loop
		if x>y then x := x-y; else y := y-x; end if;
	end loop;
	lnko := x;
	-- lkkt := a*b/lnko;    -- Ada95-ben mukodik
	lkkt := a*b/x;
end Kozos;