program kirje;
type
 punkt=record
  x, y: integer;
  end;
var a, b: punkt;

begin
 a.x:=3;
 a.y:=4;
 b:=a;
 writeln('x=',b.x,' y=',b.y);
end.