寫好一個程序var a,b,x,y,m,n,i,j,q:longint;??? c:array[1..1000]of longint;begin??? read(x,y,m);??? a:=m div x;??? b:=m div y;??? n:=1;??? for i:=1 to a+1 do????? begin??????? for j:=1 to b+1 do??????? begin??????????? if((a+1-i)*y+(j-1)*x<=m)then??????????? begin??????????????? c[n]:=(a+1-i)*y+(j-1)*x;??????????? end??????????? else??????????? begin??????????????? break;??????????? end;??????? end;??????? n:=n+1;??? end;??????????????????????????????????? ????? for j:=2 to n do??? begin??????? if c[1]<c[j] then??????? begin??????????? q:=c[1];??????????? c[1]:=c[j];??????????? c[j]:=q;??????? end;??? end;??? write(c[1]);end.然后run按要求輸入第一個數據后，按回車，無法換行。剛安裝好freepascal的時候是可以換行的，也不知道什么時候開始就無法換行了。