program program01;

{$mode objfpc}

type 
	Dolgozo = Class
		public
			nev : String;
			fizetes: Real;
			procedure beallitAlapFizetes();	virtual;
	end;

	Mernok = Class(Dolgozo)
		public
			procedure beallitAlapFizetes();
	end;

procedure Dolgozo.beallitAlapFizetes();
begin
	fizetes := 400000;
end;

procedure Mernok.beallitAlapFizetes();
begin
	fizetes := 800000;
end;

var
	joska: Dolgozo;
	feri : Mernok;
BEGIN
	joska := Dolgozo.Create();
	joska.nev := 'Nagy József';
	WriteLn(joska.nev);
	joska.beallitAlapFizetes();
	WriteLn(joska.fizetes:0:0);
	
	feri := Mernok.Create();
	feri.nev := 'Topos Ferenc';
	feri.beallitAlapFizetes();
	WriteLn(feri.nev);
	WriteLn(feri.fizetes:0:0);	
END.