Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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