Рассчитайте и выведите на экран количество рабочих часов в месяце, если продолжительность рабочего дня равна 8 часам в день, а число рабочих дней в месяце запрашивается у пользователя вашей программы в виде бок-схемы.

ответы на это задание могут быть любыми, в зависимости от того, по какому признаку вы будете сравнивать объекты.

1)    щука, карась, окунь, рак (не рыба);
2)    ромашка, ландыш, сирень (кустарник, а не трава), колокольчик;
3)    Саша, Лена, Коля, Маша, Егорова (не имя);
4)    ветка, листок, яблоко, цветок, птичка (живая);
5)    заяц, волк, кабан, лось, овца (женский род); 
6)    ухо, лицо, нос, язык (не снаружи), глаз;
7)    рысь, медведь (не кошачьи), тигр, лев, кошка;
8)    шайба, коньки, качели (не относится к хоккею), клюшка;
9)    гусь, лебедь, павлин, курица, кролик (не птица);
10)    пот, потолок (всё остальное связано с потом), потливый, запотевший;
11)    горе, нагорный (всё остальное связано с горем), горевать, горемыка;
12)    Тибет, Кавказ, Альпы, Байкал (озеро, а не гора);
13)    Россия, Франция, Петербург (не страна), Китай;
14)    Африка, Индия (не материк), Австралия, Южная Америка;
15)    диван, кровать, тетрадь (не мебель), шкаф, парта;
16)    дряхлый, старый, изношенный, маленький (остальное - синонимы), ветхий;
17)    молоко, сыр, сливки, сметана, сало (не связано с молоком);
18)    подлежащее, глагол (не член предложения), дополнение, определение;
19)    пять (остальные - существительные), пятерка, пятерня;
20)    четырехугольник (слово с двумя корнями, остальные с одним), четыре, четверка;
21)    ножницы, дрожжи (не предметы обихода), щипцы, башмаки;
22)    брюки, хлопоты (остальное - предметы), дверцы, вилы;
23)    дебри, прения, игры (только у этого слова есть единственное число), шахматы;
24)    носок, мозоль (женский род, у остального - мужской), георгин, помидор;
25)    магистраль, вестибюль (не женский род), бандероль, лазурь;
26)    озимь, цитадель (3 слога, а не 2), фланель, панцирь;
27)    подстаканник, подорожник (нет приставки под-), подснежник, подлокотник;
28)    текст, число, график (второй звук согласный, у остальных - гласный), бумага;
29)    клавиатура, джойстик, сканер, принтер (не средство ввода);
30)    монитор, графопостроитель, принтер, мышь (не средство вывода);
31)    винчестер, дискета, компакт-диск, процессор (не ПЗУ);
32)    обработка, хранение, калькулятор (не информационный процесс), передача. 

//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