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