CODE EXAMPLE FOR PASCAL

pascal cheat sheett

var
  s: shape;

begin
  s.kind := rectangle;
  s.length := 5.0;
  s.height := 3.0;
  ...