Question

СРОЧНО! ПОМОГИТЕ ПОЖАЛУЙСТА ПО ИНФОРМАТИКЕ 9 КЛАСС
Напишите программу, которая запрашивает у пользователя число. Если оно больше нуля, то в ответ на экран выводится 1, если оно не положительное то -1

Answer 1

var a: real;

begin

write('введите число: ');

readln(a);

if a>0 then write(1) else write(-1);

end.