Вопрос Почему не работает программа в паскаль

[spider552]

program

var// a,b,c:real;

begin

readln (a,b,c);

if(a+b) and (b+c) and (a+c)

then

writeln ('сущ&#39

else

writen ('не сущ&#39

end.

 

[Слава1985]

поставь курсор после var// и нажми клавишу enter

 

[frolovchanin]

(a+b) and (b+c) and (a+c) — вы считаете это логическим условием?
1.5 and 2.3 and 3.4 — истина или ложь?

 

[YoBitch]

var a,b,c:real;
begin
readln (a,b,c);
if(a>b) and (b>=c) and (a<c)
then
writeln (сущ&#39
else
write (не сущ&#39
end.

 

[ывпффарвоао]

где условие задачи