package body LENGYEL is	-- lengyel forma kiertekelese

procedure Kiertekel ( kif: in out Kifejezes; eredmeny: out Szam ) is
	elso, masodik: Szam;
begin
	elso := Top(kif).ertek;
	Pop(kif);

	while not isEmpty(kif) loop
		masodik := Top(kif).ertek;
		Pop(kif);

		case Top(kif).tipus is
			when plussz => elso := elso+masodik;
			when szor => elso := elso*masodik;
			when others=> raise HIBAS_KIFEJEZES;
		end case;
		Pop(kif);
	end loop;
	eredmeny := elso;
exception
	when CONSTRAINT_ERROR | MAR_URES =>
		--while not isEmpty(kif) loop	Pop(kif);	end loop;
		raise HIBAS_KIFEJEZES;
end Kiertekel;

end LENGYEL;