Найдите ошибку.. она не работает(( program plоснаd; var а,в,с: real; d: real; р: real; s: real; begin writeln('задайте стороны a,в,с: '); read(а,в,с); р: =(а + в + с)/2; d: =a; if dd then begin s: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln ('площадь: ',s) end else writeln (a,b,с, '- не являются сторонами треугольника'); end.

program PLOCHAD;

var A,B,C:real;
D:real;
P:real;
S:real;
begin
writeln('Задайте стороны A,B,C:');
read(A,B,C);
P:=(A + B + C)/2;
D:=A;
if D<B then D:=B;
if D<C then D:=C;
if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln ('ПЛОЩАДЬ:',S)
end
else writeln (A,B,C, '- не являются сторонами треугольника');
end.

Не работало из-за того, что ты написала везде A,B,C русскими буквами. Я их просто заменил на английские и заработало.

ты елсе пропустила в первом, когда начала второй запрос делать ну и в третьем что то пропустила)) и енд в 3 с конца без точки запятой))