===== Free Pascal, Pascal ABC =====
var
i: integer;
a: array[1..7] of integer;
begin
write('Введи 7 чисел: ');
for i := 1 to 7 do
read(a[i]);
write(a[i], ' ');
end.