Что не так в программе?
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, b и c.После ключевого слова "then" нужно добавить операцию, которую нужно выполнить, если условие истинно.Необходимо добавить оператор ";" после строки "else write ('невозможно')".Дублируется проверка условия a > 0 в блоке then.

Исправленный код:

var a, b, c: real;
begin
read(a, b, c);
if (a > 0) and (b > 0) and (c > 0) then
writeln(a, b, c)
else
writeln ('невозможно');
end.