01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / 88_IN_88

program chislo;
uses crt;

const
     n=88;
     m=171;

type
    mass=array[1..m] of integer;

var
   b,c,d  : mass;
   i,j,k,l: integer;
   a      : double;

begin
clrscr;
window(1,1,80,4);
gotoxy(1,2);
textcolor(white);
textbackground(green);
a:=exp(n*ln(n));
for i:=1 to 80 do
write('=');
write('=');
write(A);
for i:=1 to 55 do
write(' ');
write('=');
for i:=1 to 80 do
write('=');
window(1,4,80,15);
gotoxy(1,5);
textcolor(white);
textbackground(blue);
for i:=1 to m do
b[i]:=0;
b[1]:=1;
k:=0;
for j:=1 to n do begin
                 for i:=1 to m do begin
                                  b[i]:=b[i]*n+k;
                                  if b[i]>9 then begin
                                                 l:=b[i] mod 10;
                                                 k:=(b[i]-l) div 10;
                                                 b[i]:=l;
                                                 end
                                  else k:=0;
                                  end;
                 end;
for i:=1 to 80 do
write('*');
for i:=m downto 1 do
write(b[i]);
for i:=1 to 69 do
write(' ');
for i:=1 to 80 do
write('*');
if b[m-25]>=5 then begin
                   for i:=1 to (m-24) do b[i]:=0;
                   b[m-24]:=b[m-24]+1;
                   end
              else for i:=1 to (m-25) do b[i]:=0;
window(1,16,80,25);
gotoxy(1,17);
textcolor(Black);
textbackground(White);
for i:=1 to 80 do    write('-');
for i:=m downto 1 do write(b[i]);
for i:=1 to 69 do    write(' ');
for i:=1 to 80 do    write('-');
readln;
end.