{2. Составить программу вычисления площадей двух равносторонних треугольника 
по заданной стороне. В процедуре вычислять площадь треугольника (по формуле ).}
uses crt;
procedure plo(a:real;var s:real); 
begin
 s:=(sqrt(3)*a*a)/4; 
end;
var aa,bb,s:real;
begin
 clrscr;
 write('Введите сторону первого треугольника:');
 readln(aa);
 plo(aa,s);
 writeln('Площадь=',s);
 write('Введите сторону второго треугольника:');
 readln(bb);
 plo(bb,s);
 writeln('Площадь=',s);
end.