For i:=1 to 23 do begin If (a[i]>3) and (a[i]<7) then writeln(a[i]); End;ЧТО делает?

Создаётся цикл, который проходиться от 1 к 23

То есть..

i = 1

потом

i = 2

i = 3

И так до 23

Потом мы смотрим условия. Если А с индексом i > 3 И меньше 7, тогда мы его записываем.