Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5

var a:array[0..100] of integer; i,n:integer; begin read(n); for i:=0 to n-1 do begin read(a[i]); if i mod 2=0 then a[i]:=1 else a[i]:=i mod 5; end; for i:=0 to n-1 do write(a[i],' '); end.