var a : byte; procedure nevjegy(); begin WriteLn('Nagy János'); end; BEGIN nevjegy(); a := 35; WriteLn(a); END.