program Program01;

{$mode objfpc}

type 
	Dolgozo = Class
	    public
		Nev : String;
		Kor : Integer;
		Fiz : Real;
		constructor Create();
	end;
 
var
	Joska : Dolgozo;

	constructor Dolgozo.Create();
	begin
		Nev := 'Névtelen';
		Kor := 0;
		Fiz := 0;
	end;	
	
BEGIN
	Joska := Dolgozo.Create();
	
	Joska.Kor := 24;
	
	WriteLn(Joska.Nev);
	WriteLn(Joska.Kor);
	
	ReadLn;

END.