Program Pause2P_Test;    { Testa la unit Pause2P }

uses Pause2P;

begin
   readln     { Ad ogni pressione del tasto pausa apparir… una P }
end.

{ Semplice no? :) }