ЭЛЕМЕНТЫ ОБЪЕКТНО-ОРИЕНТИРОВАННОГО ПРОГРАММИРОВАНИЯ

[Nvd]

Используя наследование, описать три указанных класса (в скобках перечислены как поля, так и методы) и выполнить указанные задания. Количество полей в каждом классе должно быть минимальным.
Прямая треугольная призма (стороны основания, высота, площадь, объем);

Треугольник (стороны, площадь);

Прямая треугольная пирамида (стороны основания, высота, площадь, объем).

Призма и пирамида имеют общее основание. Выяснить, поместиться ли пирамида в призму, если да, то найти объем той части призмы, которая не занята пирамидой
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type TTreyg=class
a,b,c:real;
Procedure Init;
function s:real;
end;
function TTreyg.s:real;
p:=a+b+c;
s:=sqrt(p/2*(p/2-a)*p/2*(p/2-b)*p/2*(p/2-c));
end;
TPris=class(TTreyg)
h:real;
Procedure Init;
function S1:real;
function v:real;
end;
function S1:real;
begin
S1:=a*h+b*h+c*h+2*s;
end;
TPir=class(TPris)
h:real;
Procedure Init;
function S2:real;
function V1:real;
end;
function TPir.S2:real;
begin
S2:=
Procedure TTreyg.Init;
begin
write('Vvedite ctoroni');readln(a);readln(b);readl n(c);
end;





begin

end.