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

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

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