program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
TDoska2D = class (TObject)
protected
W, L:Integer;
public
procedure Init(w_,l_:Integer);
function Length:Integer;
function Width:Integer;
function S:integer;
end;

TDoska3D = class (TDoska2D)
protected
H:Integer;
public
procedure Init(w,l,h_:Integer);
function V:integer;
function Height:integer;
procedure print();
end;
{ TODO -oUser -cConsole Main : Insert code here }
{ TDoska2D }

procedure TDoska2D.Init(w_, l_: Integer);
begin
W := w_;
L := l_;
end;

function TDoska2D.Length: Integer;
begin
Result:=L;
end;

function TDoska2D.S: integer;
begin
Result:= Width*Length;
end;

function TDoska2D.Width: Integer;
begin
Result:=W;
end;

{ TDoska3D }

procedure TDoska3D.Init(w, l, h_: Integer);
begin
Inherited Init(w,l);
H:=h_;
end;

function TDoska3D.V: integer;
begin
Result:= S*H;
end;

function TDoska3D.Height: integer;
begin
Result:= S*H;
end;

procedure TDoska3D.print;
begin
Writeln('V:',V);
end;

var
W,L,H:Integer;
Doska2d:TDoska2D;
Doska3d:TDoska3D;

begin
Writeln(' - - - - - ');
Writeln (' Doska 2D ');
Write('Width: ');
Readln(W);
Write('Length: ');
Readln(L);

Doska2d:=TDoska2D.Create;
Doska2d.Init(w,l);

Writeln('S:',Doska2d.S);
Writeln;

Writeln(' - - - - - ');
Writeln (' Doska 3D ');
Write('Width: ');
Readln(W);
Write('Height: ');
Readln(H);
Write('Length: ');
Readln(L);

Doska3d:=TDoska3D.Create;
Doska3d.Init(w,l,h);

Doska3d.print();

Writeln;

readln;
end.