fork download 
  1. var
  2. 	s, wrd, min, ts : string;
  3. 	a : array [1..127] of string;
  4. 	i, j, k, m, tv : Integer;
  5. begin
  6. 	ReadLn(s);
  7. 	s := s + ' ';
  8.  
  9. 	k := 0;
  10. 	wrd := '';
  11. 	for i := 1 to Length(s) do
  12. 		if s[i] <> ' ' then 
  13. 			wrd := wrd + s[i]
  14. 		else begin
  15. 			Inc(k);
  16. 			a[k] := wrd;
  17. 			wrd := ''
  18. 		end;
  19.  
  20. 	for i := 1 to k-1 do
  21. 		for j := 1 to k-i do
  22. 			if a[j] > a[j+1]  then begin
  23. 				ts := a[j];
  24. 				a[j] := a[j+1];
  25. 				a[j+1] := ts
  26. 			end;
  27.  
  28. 	for i := 1 to k do
  29. 		WriteLn('!', a[i], '!');
  30.  
  31. 	min := '';
  32. 	m := 0;
  33. 	tv := 0;
  34. 	ts := a[1];
  35. 	for i := 1 to k do begin
  36. 		if a[i] = ts then 
  37. 			Inc(tv)
  38. 		else begin
  39. 			if m < tv then begin 
  40. 				min := ts;
  41. 				m := tv
  42. 			end;
  43. 			tv := 1;
  44. 			ts := a[i]
  45. 		end
  46. 	end;
  47.  
  48. 	WriteLn(min)
  49. end.
Success #stdin #stdout 0s 264KB
comments (?)
stdin 
aba ac aba de a de a
stdout 
!a!
!a!
!aba!
!aba!
!ac!
!de!
!de!
a
https://ideone.com/qn5U89
language:
Pascal (fpc 3.0.4)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!