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

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




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.