1)напишите программу вычисления площади равностороннего треугольника по известным сторонам. 2)нахождение минимум из 2 чисел.

uses crt;
var s,p,a,b,c:real;
begin clrscr;
writeln('vvedite a,b,c');
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c))
writeln('ploshad = ',s:0:2);
readkey;
end.