program Program01;
{$mode objfpc}
type 
	Dolgozo = Class
	   private
		Nev : String;
		Kor : Integer;
		Fiz : Real;
	   public
		procedure beallitKor(atvettKor: Integer);
		function lekerKor(): Integer;
	end;

procedure Dolgozo.beallitKor(atvettKor : Integer);
begin
	Kor := atvettKor;
end;
function Dolgozo.lekerKor(): Integer;
begin
	lekerKor := Kor;
end;

var
	Joska : Dolgozo;

BEGIN	
	Joska.Nev := 'Nagy József';
	Joska.Kor := 24;
	Joska.Fiz := 380000;	
	
	WriteLn(Joska.Nev);
	WriteLn(Joska.Kor);
	WriteLn(Joska.Fiz:0:2);
	
	ReadLn;
END.