Для двух треугольных пирамид, заданных ребрами, определить, площадь полной поверхности которой из них больше и на сколько. (программа Паскаль)

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