[NumLock]

Код:

 program Project1;

 {$APPTYPE CONSOLE}

 uses
 SysUtils;

 type
 TSumma = Class

 private
 fx: integer;
 fy: integer;
 fz: integer;
 public
// constructor Create;
// Destructor Destroy;
 end;

 var v: TSumma;


 begin

 v:=TSumma.Create;// выделяется память для объекта v

// Summa.Create;// создается конструктор
 // который присваивает значение к полю класса Summa
// begin
 v.fx:=50;
// end;
 writeln(v.fx);

 end.