with text_io; use text_io;
function IntegertBeolvas return INTEGER is
	str: STRING(1..INTEGER'WIDTH+1);
	hossz: NATURAL;
begin
	Get_Line(str,hossz);
	return INTEGER'VALUE(str(1..hossz));
end IntegertBeolvas;