Выяснить есть ли в трёхзначном числе одинаковые цифры

var

s: string[3];

begin

readln(s);

if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then

writeln('есть') else

writeln('нет');

end;

пишу на паскале

program tralala;

var a,b,c,n: integer;

begin

readln(n);

a: =n div 100;

b: =n div 10 mod 10;

c: =n mod 10;

if (a=b) or (a=c) or (b=c) then writeln (есть');

else write('нету');

end.

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

var a: array [1..30] of integer;

i: integer;

begin

  for i : = 1 to 30 do

  begin

        a[i]: = 5+5*0.05*(i-1)+2;

        writeln(a[i]);

  end.

end.