var x,a,b,c,i,j,k:integer;begin a:=0; b:=0; c:=0; readln(x); for i:=1 to x div 4 do for j:=1 to x div 5 do for k:=1 to x div 6 do if (i*4+j*5+k*6=x) and (i+j+k>a+b+c) then begin a:=i; b:=j; c:=k; end; writeln(a,' ',b,' ',c);end. 20210311
1. sw**s franc ** at a forward premium. its current forward value ($0.505/sfr) ** greater than its current spot value ($0.500/sfr).2. covered interest differential "in f**or of switzerland"...