вычисление площади

Ответ от Max[эксперт]
Ну я как понимая из расчета, тут треугольник прямоугольный.. . var a,b:real; begin writeln(\'Вычисление площади треугольника \'); writeln(\'Введите исходные данные: \'); write(\'Основание (см) : \'); readln(a); write(\'Высота (см) : \'); readln(b); write(\'S треуг. равна: \', a/b,\' квадр. метра\'); readkey end. ----- readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); write(s); readkey end.