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

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

Var a: integer; beginwriteln('введите число'); read(a); if a< 0 then writeln('отрицательное число') elseif a=0 then writeln('нулевое') else writeln('положительное'); end.