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

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 qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

революция 1917 года и великая отечественная война (1941-1945)