Что не так в программе?
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.

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