Процедура Опции

[Client]

имеется программа, надо определить что будет напечатано.

Uses crt;
var
    a,b,c,d:integer;
procedure P(var b:integer; c:integer);
var d:integer;
begin
       a:=5;
       b:=6;
       c:=7;
       d:=8;
       writeln(a,b,c,d)
end;
begin
        a:=1;
        b:=2;
        c:=3;
        d:=4;
        P(a,b);
        writeln(a,b,c,d);
        readkey
end.

Ответ такой:
6678
6234
не могу понять почему 6678 и 6234, насчет 234 как-то вроде понятно, а вто 66 и 6 никак
и какие переменные здесь формальные, а какие параметры?

[volvo]

насчет 234 как-то вроде понятно, а вто 66 и 6 никак

Это называется побочный эффект, и за такой код надо, вообще говоря, отрывать все части тела подряд... Смотри:

У тебя есть ГЛОБАЛЬНЫЕ переменные a, b, c, d... Им ты вначале присваиваешь значения 1, 2, 3, 4 соответственно. С этим все просто... Потом: в процедуру передаются значения A и B, но значение А передается "по ссылке" (в процедуре первый параметр описан, как параметр - переменная, то есть его изменение будет передано в вызывающую программу), а B - "по значению", то еть, как бы ты внутри процедуры второй параметр не менял, в основной части программы он останется таким же, как был на момент вызова процедуры.

Ладно... Теперь - заходим внутри процедуры. Что же за бардак мы тут видим? Первый переданный параметр у нас доступен под именем B, но не забудь, что изменяя его, мы изменяем глобальную переменную А (именно она передана в качестве фактического параметра), так что в результате строчка

a := 5

вообще лишена смысла - в A все равно запишется значение, которое присваивается локальному параметру B в следующей строке. Изменение же С не будет доступно извне, оно касается локального параметра, перекрывающего глобальную переменную C (тебе надо прочитать про области видимости + глобальные/локальные переменные, чтобы во всем этом разобраться как следует).

Возникает вопрос, а почему же D := 8 не изменяет значения глобальной переменной D? Да точно по той же причине: в разделе описания переменных внутри процедуры тоже есть переменная D, и она "заслоняет собой" глобальную. Итого, внутри процедуры имеем:
A(глобальная) = 6;
B(var-параметр, она же глобальная A) = 6;
C(параметр-значение) = 7;
D(локальная переменная процедуры) = 8

Печать выдает именно эти значения...

Теперь возвращается из процедуры назад в основную программу. Что поменялось? Глобальные переменные B, C и D процедурой не были изменены, их значения остались такими же, как и до ее вызова. Изменилась только глобальная переменная A (я уже написал, почему). Теперь она равна 6. Что тебе и печатает WriteLn...