Задача 1. Напишите программу на языке pascal: Ввести число, если это число отрицательное (например: -5), то программа должна вывести "число -5 отрицательное ", если число положительное (например:452) то программа должна вывести "число 452 положительное". На оценку 4 еще рассмотреть случай когда вводится число 0 На оценку 5 еще рассмотреть случай, когда используются метки для многократного введения чисел.

Спасибо

//Pascal ABC.NetVar a:array[1..1000] of longint;n,i:longint;Beginwriteln('Введите количество чисел');readln(n);writeln('Введите числа');for i:=1 to n doread(a[i]);for i:=1 to n doif (a[i]<0) then writeln('Число ',a[i],' отрицательное')else if (a[i]>0) then writeln('Число ',a[i],' положительное')else writeln('Число ',a[i],' равно нулю');End.