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

висимости от того, является ли введенное число x положительным или нет.

program znak;

var

 a:real;

 s:boolean;

begin

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

 read(a);

 s:=(a>0);

 writeln(s);

end.