,!Задано трехзначное число. Проверить, что заданное число содержит 3 различных цифры. Составить программу

ПОМОГИТЕ, ПОЖАЛУЙСТА!!
Задано трехзначное число. Проверить, что заданное число содержит 3 различных цифры. (Составить программу)

  • var N, c1, c2, c3 : integer;
    begin
    read(N);
    c3:=N mod 10;
    N:=N div 10;
    c2:=N mod 10;
    c1:=N div 10;
    if (c1<>c2) and (c1<>c3) and (c2<>c3) then writeln(‘Содержит’)
    else writeln(‘Не содержит’);
    end.
  • program z;
    var n,a,b,c: word;
    begin
    readln(n);
    a:=n mod 10;
    n:=n div 10;
    b:=n mod 10;
    n:=n div 10;
    c:=n;
    if (a<>b) and (a<>c) and (b<>c) then writeln( ‘Число содержит 3 различных цифры’) 
    else writeln(‘В числе есть повторяющиеся цифры’)
    end.