Урок 15 задача 1

Урок 15 задача 1

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

program project1;
var numbArr: array[1..7] of integer;
    i:integer;
begin
  numbArr[1]:=1;
  numbArr[2]:=12;
  numbArr[3]:=45;
  numbArr[4]:=6;
  numbArr[5]:=7;
  numbArr[6]:=18;
  numbArr[7]:=99;
  for i:=low(numbArr) to high(numbArr) do
  begin
    write(numbArr[i], ' ');
  end;
  readln();
end.