Public Class Dolgozo
    private nev As String
    protected fizetes As Double
    public Sub New()
        nev = "Névtelen"		
        fizetes = 500000
    End Sub
    Overridable Function szamitFizetes() As Double
        Dim jutalom As Double = 30000
        Return fizetes + jutalom
    End Function
End Class

Public Class Mernok 
	Inherits Dolgozo
    Overrides Function szamitFizetes() As Double
        Dim jutalom As Double = 60000
        Return fizetes + jutalom
    End Function
End Class

Public Class Application
	Public Shared Sub Main()
                Dim kati As New Mernok()
                Dim jani As New Dolgozo()
		
                Console.WriteLine(jani.szamitFizetes())
                Console.WriteLine(kati.szamitFizetes())
	End Sub
End Class