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

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. //Конец программы