Лазарус: 1. Даны символы S1, S2, …

uses crt; var a, b, c, i, j, n: integer; s, k: array [1… 10000] of integer; begin clrscr; writeln ('Введите размер массива > 4.'); read (n); for i: =1 to n do begin writeln ('Введите ', i, ' элемент.'); read (s[i]); end; for i: =1 to n do for j: =1 to n-1 do while s[i]=s[j] do begin j: =j+1; inc (k[i]); end; a: =k[1]; for i: =1 to n do if a