program program01;

{$mode objfpc}

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

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

var
	joska: Dolgozo;

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