program proc03;
const zero = 0;
type rek = record 
             pole1 : integer;
             pole2 : real;
             pole3 : array [1..2] of boolean
	   end;
var i, j : integer;
    x, y : real;
    r, s : rek;
procedure pro ( x : integer; var i : real);
var y : integer;
    j : real;
begin
  y := x;
  x := 4;
  j := i;
  i := 3.0
end;

begin 
  i := 1; j:=2; x:= 5; y:= 6;
  pro(i,x);
  writeln('i=',i:6,', j=',j:6,', x=',x:6:2,', y=',y:6:2)
end.