Напишите программу заполнения массива А[1:50] числом 1

Вопрос школьника по предмету Информатика

// PascalABC.NET 3.2, сборка 1401 от 14.03.2017

// Внимание! Если программа не работает, обновите версию!

begin

var a:=ArrFill(50,1); a.Println

end.

Замечание: полученный массив имеет 50 элементов, но индексы [0..49]

2. «Школьный вариант»

var

a:array[1..50] of integer;

i:integer;

begin

for i:=1 to 50 do begin

    a[i]:=1;

    Write(a[i]:2)

    end;

Writeln

end.