10

program Zasięgi;
var i,j: integer; x: real;

procedurę Pierwsza

var k: integer;

procedurę Druga (x: real); var k: integer;

procedurę Trzecia (x: real) var k: integer; procedurę Wewn;

var k,1: integer;