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

// PascalABC.NET 3.2, сборка 1401 от 14.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrFill(50,1); a.Printlnend.Замечание: полученный массив имеет 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;  Writelnend.