Μάθημα : Αρχές Γλωσσών Προγραμματισμού και Μεταφραστών

 program MAIN;

            var i, j, k, m: integer;

            procedure Q(i, m: integer);

                        begin

                        i:= i+k;

                        m:= j+1;

                        write(i, j, k, m)????(A)

                        end;

            procedure P(i, j: integer);

                        var k: integer;

                        begin

                        k:= 3;

                        i:= i+k;

                        j:= j+k;

                        Q(i, j)

                        end;

begin

i:= 1;  j:= 2;  k:= 4;

P(i, k);

write(i, j, k)???????????(Β)

end.