Write('Введите значение стороны a: ');Readln(a);Write('Введите значение стороны b: ');Readln(b);Write('Введите значение стороны c: ');Readln(c);
P := a + b + c;PP := P / 2;S := sqrt(PP (PP - a) (PP - b) * (PP - c));
WriteLn('Площадь треугольника равна: ', S:0:2);End.
Write('Введите значение стороны a: ');
Readln(a);
Write('Введите значение стороны b: ');
Readln(b);
Write('Введите значение стороны c: ');
Readln(c);
P := a + b + c;
PP := P / 2;
S := sqrt(PP (PP - a) (PP - b) * (PP - c));
WriteLn('Площадь треугольника равна: ', S:0:2);
End.