Составить программу, которая вводит, число, и определяет, является ли число...

Question

Составить программу, которая вводит, число, и определяет, является ли число положительным, отрицательным или равным нулю.

Answer 1

Var x:real;
begin
write('Введите число: ');
readln(x);
if x=0 then writeln('Число равно нулю');  
if x<0 then writeln('Число отрицательное');<br>if x>0 then writeln('Число положительное')    
end.

Answer 2

Какой язык программы