Очень нужно=(Ребят, как сделать, чтобы…

var a: array [1… 10] of integer; i: integer; begin for i: =1 to 10 do read (a[i]); for i: =1 to 10 do if i mod 4=0 then write ('нет',') else if i mod 2=0 then write ('да', ') else write (a[i],'); end. Вот вставьте, если не работет напишите