Для 2-ух треугольных пирамид, заданных ребрами, определить, площадь полной поверхности которой

uses crt;
procedure Sp(a:real;var s:real);
begin
s:=a*a*sqrt(3);
writeln(Площадь полной поверхности=,s:0:2);
end;
var a,s:real;
nbsp;nbsp;nbsp;nbsp;i:byte;
begin
clrscr;
writeln(Введите длины ребер 2 тетраэдров:);
for i:=1 to 2 do
nbsp;begin
nbsp;nbsp;write(a,i,=);
nbsp;nbsp;readln(a);
nbsp;nbsp;Sp(a,s);
nbsp;end;
readln
end.