[Lory]

что будет выведено на печать?

Код:

program C;
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)end.