program strings; uses crt; const n=30; name1='C:\BP\BIN\s1.out'; name2='C:\BP\BIN\s2.out'; label 1, 2; var a,m:array[1..n] of string[6]; i,j,k,p:integer; f,g:text; kol:array[1..n] of integer; begin clrscr; assign(g,name1); reset(g); assign(f,name2); rewrite(f); writeln(f,'Laboratornaya rabota 2. Simvilniye massivi i stroki'); writeln(f,'Posliedovatielnost slov'); k:=0; for i:=1 to n do begin read(g,a[i]); if i mod 5=0 then readln(g); {Poslie 5 slov chitayem so sleduyuschei stroki} p:=0; for j:=1 to k do begin if m[j]=a[i] then begin kol[j]:=kol[j]+1; p:=1; end; end; if p=0 then begin k:=k+1; m[k]:=a[i]; kol[k]:=1; end; end; writeln(f,'Razlichniye slova v posliedovatielnosti i ij kolichestvo'); for i:=1 to k do writeln(f,m[i],'-',kol[i]:2); close(f); close(g); end.