[friz]

Правильный и красивый код:

Код:

program C1; {название программы}
var a,b,c,d:integer; {объявление переменных}

procedure P(var b:integer;c:integer); {объявляем процедуру в которую передаеться два параметра b и c}
var d:integer;{объявление переменных в процедуре, т.е. локальная переменная}
begin 
   a:=5; {присваиваем переменной а значение 5  }
   b:=6;
   c:=7;
   d:=8;
   writeln(a,b,c,d); {выводим на экран переменные a,b,c,d}
end;

begin {начало самой программы}
   a:=1;{присваиваем переменной а значение 1  }
   b:=2;
   c:=3;
   d:=4;
   P(a,b);{вызываем процедуру и передаем в нее переменные a b}
   writeln(a,b,c,d); {выводим на экран переменные a,b,c,d}
end.

сперва выдаст 6678
потом 6234