program p20;
uses crt;
var a:string;
procedure he(b:string);
var
i:integer;
f:boolean;
a1,a2:integer;
begin
f:=false;
for i:=1 to length(a) do
begin
if (a[i]<>' ') and (not f) then
begin
f:=true;
a1:=i;
end;
if (a[i]=' ') and (f) then
begin
f:=false;
a2:=i;
if (copy(a,a1,1)=copy(a,a2-1,1)) then
writeln(copy(a,a1,a2-a1));
end;
end;
end;
begin
clrscr;
write('Vvedite stroky (Enter - gotovaya stroka):'); readln(a);
if a='' then a:='ABBA it`s then !!!best!!! pop group!';
writeln('---'); writeln(a);
writeln('---'); TextColor(15); he(a);
end.