Что не так в программке?var a,b,c:real;begin;read(a,b,c);if aamp;gt;0then (aamp;gt;0) and

В согласовании с синстаксисом языка Паскаль, после then должен следовать оператор языка. У Вас записано логическое выражение (agt;0) and (bgt;0) and (cgt;0), которое оператором не является.

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