найдите ошибку.. она не работает((

program PLОСНАD;
     
     var А,В,С:real;
     D:real;
     Р:real;
     S:real;
     begin
     writeln('Задайте стороны A,В,С:');
     read(А,В,С);
     Р:=(А + В + С)/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,С, '- не являются сторонами треугольника');
     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 с конца без точки запятой))