Срочно !!! спасибо. Напишите программу,(в паскаль ABC) которая выведет ** экран значение...

Question

Срочно !!! спасибо. Напишите программу,(в паскаль ABC) которая выведет на экран значение true или false, в за- висимости от того, является ли введенное число x положительным или нет.

Comments

Вот, в PascalABC.NET:beginvar x := ReadReal('введите число x:');Write (x>0)end.

Answer 1

program znak;

var

 a:real;

 s:boolean;

begin

 writeln('Введите число');

 read(a);

 s:=(a>0);

 writeln(s);

end.