Помогите с информатикой. Составьте программу на языке паскаль

Помогите с информатикой. Составьте программу на языке паскаль
Составьте программу на языке паскаль, определяющую есть ли среди цифр заданного трехзначного числа одинаковые.

  • var a:string[ 3 ];
    begin
    repeat
    Write (#10#13'please type:' );
    readln(a);
    if (a[ 1 ] = a[ 2 ]) or (a[ 1 ] = a[ 3 ]) or (a[ 3 ] = a[ 2 ]) then writeln ('sad, but true!')
    else Writeln('something wrong');
    until a='999';
    end.
  • var
    n, d1, d2, d3: integer;
    begin
    write('трехзначное число: ');
    readln(n);
    d1 := n div 100; d2 := n div 10 mod 10; d3 := n mod 10;
    if (d1 = d2) or (d1 = d3) or (d2 = d3) then
    writeln('одинаковые цифры есть')
    else
    writeln('одинаковых цифр нет');
    end.
    Источник: Неужели это так сложно?