var
 n,i,j:byte;
 s:array[1..100]of string[31];
begin
readln(n);
for i:=1 to n do
begin
readln(s[i]);
for j:=1 to i-1 do
if s[i]=s[j] then writeln(s[i]);
end;
end.


______________________________
HELP PLZ

try test from example ))))
your program writes something like this
abikbaev
abikbaev
abikbaev
x

it is just fun)

Edited by author 23.11.2007 00:51

i  got  it :D

Please, can you give accepted code? I did not understand this program.