8 олимпиадных задач 1-го семестра, Фадеева ЕП (ПОИТ) / FLOPPIES03

program floppies03;
var
i,k,n,s,a,b,c,m,f,imin,imax:longint;
T: array [1..7] of real;
begin
Writeln('Insert the nomber of required floppies:');
Readln(n);
k:=trunc((n div 144)+1);
s:=n-144*(k-1);
m:=trunc((s div 12)+1);
f:=s-12*(m-1);
T[1]:=1255*(k-1)+114.5*(m-1)+11.5*f;
T[2]:=1255*k;
T[3]:=114.5*(m+12*(k-1));
T[4]:=11.5*n;
T[5]:=114.5*(m-1+12*(k-1))+11.5*f;
T[6]:=1255*(k-1)+11.5*(n-144*(k-1));
T[7]:=1255*(k-1)+114.5*m;
i:=2;
imin:=1;
repeat
if T[i]<T[imin] then imin:=i;
i:=i+1;
until i>7;
imax:=1;
i:=2;
repeat
if T[i]>T[imax] then imax:=i;
i:=i+1;
until i>7;
case imin of
1:begin a:=k-1;b:=m-1;c:=f;end;
2:begin a:=k;b:=0;c:=0;end;
3:begin a:=0;b:=m+12*(k-1);c:=0;end;
4:begin a:=0;b:=0;c:=n;end;
5:begin a:=0;b:=m-1+12*(k-1);c:=f;end;
6:begin a:=k-1;b:=0;c:=n-144*(k-1);end;
7:begin a:=k-1;b:=m;c:=0;end;
end;
Writeln('Maximum cost:',T[imax]:6:1);
Writeln('Containers:',a,' Boxes:',b,' Floppies:',c,' Full cost:',T[imin]:7:1);
end.