Data update

Task/Polymorphism/PascalABC.NET/polymorphism.pas

@@ -0,0 +1,36 @@
+type
+  Point = class
+  public
+    auto property x: real;
+    auto property y: real;
+    constructor (x,y: real);
+    begin
+      Self.x := x; Self.y := y;
+    end;
+    procedure Print; virtual;
+    begin
+      PABCSystem.Print(x,y);
+    end;
+  end;
+  Circle = class(Point)
+  public
+    auto property r: real;
+    constructor (x,y,r: real);
+    begin
+      inherited Create(x,y);
+      Self.r := r;
+    end;
+    procedure Print; override;
+    begin
+      inherited Print;
+      PABCSystem.Print(r);
+    end;
+  end;
+
+begin
+  var p: Point := new Point(3,5);
+  var c: Circle := new Circle(10,8,4);
+  p.Print;
+  Println;
+  c.Print;
+end.