Если можно, то желательно с полным решением(чё откуда взялось там и т.п. : d "напишите значение переменной d, полученное в результате работы следующей программы. ." var d, n: integer; begin d : = 6; d : = d - 2; for n : = 1 to 4 do d : = d + n; writeln(d) ; end.

Все сначало... 
Даны 2 значения d и n, ввели значение d = 6 и n = 4, после этого идет расчет формул d=d-2 ,то есть вычисляет d=6-2=4, после этого расчета идет цикл "для n от 1 до 4, повторять" ('это псевдокод в кавычках), первый цикл - d=4+1=5, второй - d=5+2=7, третий - d=7+3=10, и четвертый - d=10+4=14, и после этого вывод d (Writeln(d))  d=14 - вот ответ вашей программы.

1. Сначала посмотри на название статьи, параграфа, брошюры и т. д.
2. Вспомни и запиши все, что ты знаешь или только слышал по этой теме. Можешь записать и свои предположения.
3. Обменяйся информацией с приятелем.
4. Составляется коллективный «банк предложений».
5. Прочитай текст, делая пометки карандашом.

 - уже знал;

 + - новая для меня информация;
 - - думал иначе;
  ? - не понял, есть вопросы.
6. Текст прочитан. Вернитесь к первоначальным записям. Какие подтвердились? Какие предположения оказались ложными? Какие не нашли подтверждения?
7. Чтобы превратить информацию в знания, необходимо проговорить и осмыслить прочитанное.
Этапы стратегии IDEAL
I — Выделите в тексте проблему. Какую главную проблему должны решить герои?
D -- Опишите ее (выявите ее суть).Какой важной информацией снабдил вас автор?
Е - Определите варианты подходов к. решению проблемы. Каковы на ваш взгляд три главных решения проблемы?
А-- Действуйте (решайте). Какой из выбранных вами наилучший?
L — Сделайте вывод, проведите рефлексию своей работы. 
. 

Const
   N = 3;
   M = 4;
Var
   A:array[1..N,1..M] of integer;
   i,j,iMin,jMin:integer;
Begin
Randomize;
iMin:=1;
jMin:=1;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(76)-30;
        if A[i,j] < A[iMin,jMin] then
           Begin
           iMin:=i;
           jMin:=j
           End;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
WriteLn('Min = A[',iMin,',',jMin,'] = ',A[iMin,jMin]);
End.

Исходный массив:
-11  -3 -16  44
 -1 -10  38 -20
 33 -22  17  10
Min = A[3,2] = -22