Program P140;
uses U2;
var x : integer;
begin
 x:=4;
 writeln('Programul P140:');
 writeln('   n=', U3.n);
 writeln('   m=', m);
 writeln('   x=', x);
 readln;
end.