1. Нарисовать дерево каталогов A:\Картинки\0016.jpeg A:\ Картинки\02.gif A:\ Картинки\Мои\солнце.jpg A:\ Игры\hallo.exe A:\ Игры\Программы\roo.exe A:\ Игры\babytype.gif A:\ Документы\чудо.pdf A:\ Документы\пословицы.docx A:\ Документы\Мои\автобиография.txt A:\ Документы\Мои\реферат.doc A:\ Игры\Babytype\babytype.exe

For i in 0..15
    c = "E0".to_i(16) + i
    puts "%s_16 = %s_8 = %s_4 = %s_2" % [c.to_s(16),c.to_s(8),c.to_s(4),c.to_s(2)]
end

e0_16 = 340_8 = 3200_4 = 11100000_2
e1_16 = 341_8 = 3201_4 = 11100001_2
e2_16 = 342_8 = 3202_4 = 11100010_2
e3_16 = 343_8 = 3203_4 = 11100011_2
e4_16 = 344_8 = 3210_4 = 11100100_2
e5_16 = 345_8 = 3211_4 = 11100101_2
e6_16 = 346_8 = 3212_4 = 11100110_2
e7_16 = 347_8 = 3213_4 = 11100111_2
e8_16 = 350_8 = 3220_4 = 11101000_2
e9_16 = 351_8 = 3221_4 = 11101001_2
ea_16 = 352_8 = 3222_4 = 11101010_2
eb_16 = 353_8 = 3223_4 = 11101011_2
ec_16 = 354_8 = 3230_4 = 11101100_2
ed_16 = 355_8 = 3231_4 = 11101101_2
ee_16 = 356_8 = 3232_4 = 11101110_2
ef_16 = 357_8 = 3233_4 = 11101111_2

//Pascal ABC.NET v3.0 сборка 1111

var
 i,a,b:integer;
 ar:array[1..10] of integer;

 procedure oddDec(var a,b:integer);  //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;

procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;

begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
 begin;
  ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
  write(ar[i]:4); //вывод
  if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
  {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
 end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.

Пример ввода:
20
10
Пример вывода:
Array:
  10  16   0  60  23   4  22 -20   4  55
Final array:
   0  36 -10  80  13  24  12   0  -6  75