For i 1 to n do readln(a. Программа for i=1 i<n i=i+1. Var a array 1 n of integer. For i:='а' to 'я' do begin