with POZ_RAC, TEXT_IO; use POZ_RAC, TEXT_IO;
procedure PR is
	p: PozRac := 8/6;
	procedure Kiir ( p: in PozRac ) is
	begin
		Put( POSITIVE'IMAGE(Szamlalo(p)) & '/' &
			POSITIVE'IMAGE(Nevezo(p)) );
	end Kiir;
begin
	p := p/2;
	Kiir(p);
	New_Line;
end PR;