Известно что в массиве имеются нулевые элементы. напечатать все элементы кроме первого. на паскале

var

A: array [0 ... 3] of real; / / Объявляем массив действ. чисел (измените, как надо тут)

i: byte; / / Объявляем переменную типа Byte, больше всё равно не надо, так незачем и память тратить

begin / / Начало программы

for i : = 0 to 3 do / / Заполняем массив числами с клавиатуры ...

readln (a[i]) ; / / ... заполняем

for i : = 1 to 3 do / / Проходимся по массиву снова, от первого до последнего элемента

write (a[i], ' ') ; / / Выводим элемент с индексом i

end. / / Конец программы