задано додатнє чотирьохзначне число N. перевірити чи є серед його цифр дві однакові. Допоможіть зробити на Pascal, с

Да пожалуйста, для любого числа вообще:

var a:array[0..9] of integer;
j,n:integer;
b:boolean;
begin
for j:=0 to 9 do a[j]:=0;
readln(n);
while n>0 do begin
inc(a[n mod 10]);
n:=n div 10;
end;
b:=false;
for j:=0 to 9 do
b:=b or (a[j]>1);
if b then writeln('Yes!') else writeln('No!');
end.

А теперь объясни это училке.