.Вводится слово из 4 букв. Определить, есть ли в нем одинаковые буквы. .......
В программе паскаль !!!Срочно !!

var s:string;i,j,d,k:integer;beginreadln(s);d:=length(s);k:=(-1)*d;for i:=1 to d dofor j:=1 to d doif s[i]=s[j] then k:=k+1;if k=0 then writeln('нет') else writeln('есть');end.