Задачка на паскале

Задачка на паскале
Дано трехзначное число. Проверить истинность высказывания : «все цифры в записи числа имеют разные значения».

var a,b,c:real;
var n:integer;
begin
writeln('введите число');
readln(n);
if(a<>b)and(b<>c)and(c<>a) then
writeln ('Высказывание верно')
else
writeln ('Высказывание не верно')
end.
_______
Что то подобное ведь?Я не помню как присвоить к переменым цифру из числа. Помогите пожалуйста

  • >Я не помню как присвоить к переменым цифру из числа. Помогите пожалуйста
    Методом деления нацело. Только зачем ты описал свои цифры как вещественные?

    a:=n mod 10;
    b:=n mod 100 div 10;
    c:=n div 100;

  • n mod 10 пока n не станет нулевым
  • посмотри и примени себе
    uses crt;
    var x,sum,n: integer;
    begin
    clrscr;
    readln(n);
    sum := 0;
    while n<>0 do
    begin
    sum:=sum + n mod 10;
    n := n div 10;
    end;
    write('Сумма цифр = ',sum);
    readln;
    end.