{$mode objfpc}
type
	TDolgozo = class
		nev : String;
		kor : byte;
	end;
var 
	Joska : TDolgozo;
begin
	Joska := TDolgozo.Create;	
	Joska.nev :='Nagy József';
	Joska.kor := 28;
	
	if Joska is TDolgozo then
		WriteLn('Egyezik')
	else
		WriteLn('Nem egyezik');	
end.