Что не так в программе? var a,b,c: real; begin; read(a,b,c); if a> 0 then (a> 0) and (b> 0) and (c> 0) else write ('невозможно') write(a,b,c); end.

В соответствии с синстаксисом языка Паскаль, после then должен следовать оператор языка. У Вас записано логическое выражение (a>0) and (b>0) and (c>0), которое оператором не является.

Не знаю, что ты пытался этим кодом сделать, но как минимум у тебя условие "(a>0) and (b>0) and (c>0)" идёт после слова "then" (а должно быть после "if"). Вероятно, вывод значений "write(a,b,c);" должен быть на его месте, либо наоборот, на месте "write ('невозможно')".