Используя набор данных товарооборот ссср с некоторыми странами приложение 10 построить линейную диаграмму отражающую импорт из разных стран в 1989-1990 годах

Const n=5;
var a:array[1..n,1..n] of integer;
i,j,d,k,l,m:integer;
begin
k:=1;
i:=1; j:=1;
a[i,j]:=1;
d:=n-1;
 for l:=1 to d do
  begin  k:=k+1;  j:=j+1; a[i,j]:=k; end;
for m:=1 to n div 2 do
 begin
 for l:=1 to d do
  begin  k:=k+1;  i:=i+1; a[i,j]:=k; end;
 for l:=1 to d do
  begin  k:=k+1;  j:=j-1; a[i,j]:=k; end;
  d:=d-1;
 for l:=1 to d do
  begin  k:=k+1;  i:=i-1; a[i,j]:=k; end;
 for l:=1 to d do
  begin  k:=k+1;  j:=j+1; a[i,j]:=k; end;
  d:=d-1;
 end;
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Результат:
    1    2    3    4   5
  16  17  18  19   6
  15  24  25  20   7
  14  23  22  21   8
  13  12  11  10   9

Объяснение:

1. Как осуществляется перевод в 64 систему счисления?

Для того, чтобы перевести какое-либо число в 64 систему счисления, нужно поделить на 64 ( если с 10 с.сч. переводим в 64 с.сч. ), либо сначала перевести в 10 с.сч., а затем в 64 с.сч.

Пример во вложении)

2. Как осуществляется перевод в 3 систему счисления?

Для того, чтобы перевести какое-либо число в 3 с.сч, нужно ( если число 10 с.сч. ) поделить на 3, либо ( если другого с.сч. ) перевести в 10 с.сч., а затем поделить эту запись на 3.

Пример во вложении)

3. Как осуществляется перевод в 5 систему счисления?

Аналогично как и с пунктами 1) и 2)

Пример во вложении)