Public Class Dolgozo
	private nev As String
	private kor As Integer
	public Sub New()
		nev = "Névtelen"
		kor = -1
	End Sub
	public Sub beallitNev(ByVal atvettNev As String)
		nev = atvettNev
	End Sub
	public Function lekerNev() As String
		Return nev
	End Function
	public Sub beallitKor(ByVal atvettKor As Integer)
		kor = atvettKor
	End Sub
	public Function lekerKor() As Integer
		Return kor
	End Function
End Class

Public Class Application
	Public Shared Sub Main()
		
		Dim janos As New Dolgozo()
		'janos.beallitNev("Nagy János")
		'janos.beallitKor(35)
		
		Console.WriteLine(janos.lekerNev())
		Console.WriteLine(janos.lekerKor())
		
	End Sub
End Class