Определите значения переменных k после выполнения фрагмента программы при следующих значениях переменной x: 1, 5, -10, 3, -8, 6, 1, 2, -7, 4, 0.

Существует 4 вида алгоритмов:

Линейный алгоритм -- это описание действий, которые выполняются однократно в заданном порядке. 

Циклический алгоритм -- это описание действий, которые повторяются указанное число раз или пока не выполнено заданное условие. (Перечень повторяющихся действий -- тело цикла)

Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо та, либо другая последовательность действий. 
Смешанный алгоритм --  это алгоритм, в котором могут соединиться разные виды алгоритмов. (Например, циклический и линейный)  

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.