unit error_console;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

  Procedure WriteOutError(AError: string);

implementation

Procedure WriteOutError(AError: string);
begin
  WriteLn('Error: ' + AError + #13#10#13#10);
end;
end.