Program Test;

VAR
   Number : asmname 'number' Integer;

Procedure Number_pp; asmname 'number_pp';

begin
   Number := 5;
   Writeln('Number is: ',Number);
   Number_pp;
   Writeln('Add one gives: ',Number);
end.