С клавиатуры вводится число. Верно ли что все его цифры единицы. Помогите пж

Что ввести в окно "ввода данных"

То число, которое проверяете ))))

Добавил в подсказ программу, раз уж неясно)))

ох... подсказ в программу

спс)))

var  n:integer;begin  Write('Введите проверяемое число: '); Read(n);  n:=Abs(n); { от ввода отрицательных }  while n>0 do begin    if n mod 10 <> 1 then begin      Writeln('Не все цифры - единицы');      exit      end;    n:=n div 10    end;  Writeln('Да, все цифры числа - единицы')end.

//PascalABC.NET//Версия 3.3, сборка 1611beginvar x:=abs(ReadInteger()).ToString().Select(x->x.ToDigit());write( x.Where(x->x=1).Count()=x.Count());end.