Find Minimum Number between two

program Proj_min;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, math;


var
  x,y: integer;
begin
  WriteLn('Write two numbers:');
  ReadLn(x);
  ReadLn(y);

  WriteLn('The smaller one is: ', Min(x,y));
  ReadLn;
end.