найдите ошибку.. она не работает(( program PLОСНАD; var А,В,С:real; D:real; Р:real; ...

Question

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

program PLОСНАD;

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

Answer 1

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 if D 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 русскими буквами. Я их просто заменил на английские и заработало.

 

Answer 2

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