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

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.

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

a = sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

b = sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2));

c = sqrt((x1-x3)*(x1-x3)+(y1-y3)*(y1-y3));

writeln("периметр = ",a+b+c);

s = {формула герона}