ПОСТРОИТЬ ТАБЛИЦЫ ТРАССИРОВКИ И ЗАПИСАТЬ ОТВЕТ .
1) s:=0;
for k:=1 to 11 do
s:=s+12;
write(s);

2)k := 4;
For i := 1 to 3 do
k := 2*k + i;
Writeln(k);

Program colors;
Uses crt;

var color: integer;
label l1;

Begin clrscr;
      l1: write('Введите номер цвета color = ');
          readln(color);

          case color of 0: writeln('Черный');
                        1: writeln('Синий');
                        2: writeln('Зеленый');
                        3: writeln('Голубой');
                        4: writeln('Красный');
                        5: writeln('Фиолетовый');
                        6: writeln('Коричневый');
                        7: writeln('Светло-серый');
                        8: writeln('Темно-серый');
                        9: writeln('Ярко-синий');
                        10: writeln('Ярко-зеленый');
                        11: writeln('Ярко-голубой');
                        12: writeln('Розовый');
                        13: writeln('Малиноый');
                        14: writeln('Желтый');
                        15: writeln('Белый');

          else
          begin
               writeln('Непривильный номер цвета');
               writeln;
               goto l1;
          end;
          end;
      readln;
End.             

Объяснение:

                                                                    8л            5л            3л

Наполнили 5л.                                           3              5              0

Перелили это в 3л, осталось 2 л.             3              2              3    

3 л вернули в 8 л.                                       6              2               0

2л перелили в 3л.                                        6             0              2

Наполнили 5л из 8л.                                    1             5              2

 Отлили из 5л в 5л                                        1             4              3

перелили 3л в 8л                                          4              4

Число переливаний 7.