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

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

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

1 12 45 6 7 18 99

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

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