program Program01;

type 
	Dolgozo = Object
	    public
		Nev : String;
		Kor : Integer;
		Fiz : Real;
	end;
 
var
	Joska : Dolgozo;
	
BEGIN	
	Joska.Kor := 24;
	
	WriteLn(Joska.Nev);
	WriteLn(Joska.Kor);
	
	ReadLn;
END.