N1. Розробіть код, за до якого змінні а1 і а2 набувають значень 6 і 10, а Змінні b1 i b2 - значень 13.5 і 15.1. Усі значення змінних необхідно вивести на
екран.
N2. Розробіть код, у якому змінна а набуває значення 5, змінна b - значення
7, а змінна с - значення 2*a+3*b. Значення всіх змінних необхідно вивести на
екран.
N3. Розробіть код для обчислення значення виразу а* (b - 1) / (с - 1). Значення
змінних оберіть самостійно.
​

Var
  A: array [1..10] of integer;
  i, count: byte;
  mult: integer;
begin
writeln('Сгенерированный массив.');
randomize;
for i := 1 to 10 do
begin
  A[i] := random(11) + 10;
  writeln(A[i]:4);
end;

count := 0;
mult := 1;

for i := 1 to 10 do
  if A[i] mod 3 = 0 then
  begin
    count := count + 1;
    mult := mult * A[i];
  end;
 
if (count = 1) or (count = 0) then  
  writeln('Количество элементов кратных 3 = ', count)
else
  writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult);
readln;
end.

Буфер обмена

В ОС Windows существует буфер обмена, в котором можно сохранить выделенную часть текста или рисунок. Каким образом это сделать мы поговорим в статье рубрики «Как создать документ в Microsoft Word 2007». В буфере обмена Microsoft Office можно сохранить несколько объектов (частей текста и(или) рисунков), причем переносить их можно между программами Microsoft Office, например взять из Microsoft Word и вставить в Microsoft PowerPoint. Вкладка «Буфер обмена»  в пункте меню «Главное» программы Microsoft  PowerPoint аналогична. Разберем вкладку «Буфер обмена».