Составить программу вычисления площади треугольника 

vara,b,c,p:real;beginwriteln('Введите длины сторон треугольника: ');write('A = ');read(a);write('B = ');read(b);write('C = ');read(c);p:=(a+b+c)/2;writeln('Площадь треугольника: ', sqrt(p*(p-a)*(p-b)*(p-c)):4:4);end.

program perimeter_1;uses crt;varP,a,b,c:real;beginclrscr;writeln('введите a')read (a);writeln('введите b')raed(b);writeln('введите c')raed(c);P:=a+b+c;writeln(P);end.