RosettaCodeData/Task/Handle-a-signal/PascalABC.NET/handle-a-signal.pas

begin
  var counter := 0;
  while True do
  begin
    Print(counter);
    counter += 1;
    Sleep(500);
  end;
  Console.CancelKeyPress += (o,e) -> begin
    Println(Milliseconds);
    halt
  end;
end.