program proc09;
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;
function pro ( x : integer; var i : real) : rek;
begin
  y := i;
  x := 4;
  j := x;
  i := 3.0;
  pro.pole1 := x;
  pro.pole2 := i;
  pro.pole3[1] := true;
  pro.pole3[2] := false;
end;

begin 
  i := 1; j:=2; x:= 5; y:= 6;
  r := pro(i,x);
  writeln('i=',i:3,', j=',j:3,', x=',x:5:2,', y=',y:5:2
    ,' r.pole1=',r.pole1:4 ,', r.pole2=',r.pole2:5:2,', r.pole3[1]=',r.pole3[1])
end.