Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=3;
for i:=1 to 4 do begin
a:=a+a;
end;

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList;
  if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля')
  else
    if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной')
    else begin
      var d3:=L.Where(x->x.IsEven).Min;
      L.RemoveAt(L.FindIndex(x->x=d3));
      var s:=L.OrderBy(x->x);
      Writeln(s.Last,s.First,d3)
      end
end.

Примеры:
Введите через пробел три цифры 2 0 5
520

Введите через пробел три цифры 0 5 0
500

Введите через пробел три цифры 3 9 5
Хотя бы одна цифра должна быть четной

Program Proizvedenie; //Обчислити произведение элементов второго столбца таблиці

var Tabl: array[1..4, 1..6] of Integer; i, j, P: Integer;

begin

P:=1;

For i:=1 to 4 do

For j:=1 to 6 do

begin

Write('Введіть значення елемента масиву ');

Read(Tabl[i,j]); //заповнення масиву цілими числами

end;

For i:= 1 to 4 do

P:= P * Tabl[i,2]; //умножение элементов второго столбца

writeln('Произведение элементов второго столбца= ',P);//виведення відповіді

end. //Кінець програми

Объяснение:

Изменено имя программы и переменной (чтобы не путаться)

Начальное значение переменной теперь 1, т.к. при умножении на 1 произведение не меняется

Т.к. считаем произведение элементов второго столбца, то перебираем строки от 1 до 4 и считаем произведение элементов текущей строки во втором столбце

Комментарии изменены, где необходимо, но на русском