var a : byte;

procedure nevjegy();
var kor : byte;
begin
	kor := 45;
	WriteLn('Nagy János');
	WriteLn(kor);
end;

BEGIN
	nevjegy();
	a := 35;
	WriteLn(a);
END.