С клавиатуры вводится число. Проверить, участвуют ли в записи числа все цифры. При решении использовать множества.
Есть вариант
PROGRAM PRP4;
VAR
digits: SET OF BYTE;
number:BYTE;
BEGIN
digits:=[0..9];
WRITELN('Введте число');
READLN(number);
IF number IN digits THEN
WRITELN('В записи участвуют все цифры')
ELSE
WRITELN('В записи не участвуют все цифры');
END.
Подскажите как правильно?