{$codepage utf8} {$mode objfpc} Unit Clase01; Interface Type Tclase01=class A:integer; Procedure Poner; Procedure Mostrar; End; Implementation Procedure TClase01.Poner; Begin a:=9 End; Procedure TClase01.Mostrar; Begin Poner; Writeln(a) End; End.