Программа должна быть написана в среде Pascal

Program Task; Const A=65; Z=90; N=20; Var b: Array[A… Z] of Integer; i, j, max: Byte; s: Array[1… N] of String; BeginWriteLn ('Введите ', N, ' строчек большими буквами на английском языке'); For i: =1 To N DoReadLn (s[i]); For i: =1 To N DoFor j: =1 To Length (s[N]) DoIf (Ord (s[i][j]) >=A) And (Ord (s[i][j]) <= Z) Thenb[Ord (s[i][j]) ]: =b[Ord (s[i][j]) ]+1; max: =A; WriteLn ('В данных предложениях присутствовали такие буквы: '); For i: =A To Z DoBeginIf b[i] > 0 ThenBeginWrite (Chr (i) , '); If b[i] > b[max] Thenmax: =i; End; End; WriteLn; WriteLn ('Наиболее встречалась буква ', chr (max); ReadLn; End.