Question

Помогите написать программу на паскаль.
Ввести число и вывести строку – описание этого числа «Отрицательные число», «Положительное число», «Нулевое число».

Answer 1

var
    a:integer;
begin
    read(a);
    if a > 0 then writeln('Положительное число') else if a < 0 then writeln('Отрицательное число') else writeln('Нулевое число');
end.

Answer 2

Var a:integer;beginWriteln('Введите число');Read(a);if a<0 then Writeln('Отрицательное число') elseif a=0 then writeln('Нулевое') else writeln('Положительное');End.