with LENGYEL, TEXT_IO; use TEXT_IO;
procedure Proba is
	package IntLengyel is new LENGYEL(INTEGER); use IntLengyel;
	kif: Kifejezes;
	eredmeny: INTEGER;
begin
	Betesz(kif,(szamertek,11)); 
	Betesz(kif,(szamertek,11)); 
	Betesz(kif,(tipus=>plussz)); 
	Betesz(kif,(szamertek,5));

	Kiertekel(kif,eredmeny);
	Put_Line(INTEGER'Image(eredmeny));
end Proba;