{$mode delphi}

unit ub0489b;

interface

function fpwrite(b:integer;const x;c:integer):integer;

implementation

function fpwrite(b:integer;const x;c:integer):integer;
begin
  writeln('fpwrite');
end;

end.