program Loans(Input,Output);
uses crt;
Var
i,m,l:Integer;
Month:Integer;
LoanID:String;
QUARTERS:array[1..4] of Integer;
max:integer;
min:integer;
maxloc:integ
这个单元测试用的Free Pascal 3.0成功运行在Delphi模式: procedure TFreePascalTests.TestUTF8Decode;
var
Raw: RawByteString;
Actual: string;
begin
Raw := UTF8Encode('关于汉语');
Actual := string(UTF8De