Напишите программу, которая определяет, верно ли, что введённое число состоит из одинаковых цифр. (ABC pascal)

var x,x1,k,s:integer; d:real; begin    readln(x);    k:=0; s:=0;    while x>0 do   begin   x1:=x mod 10;    k:=k+1;    s:=s+x1;    x:=x div 10;   end;    d:=s/k;    if d=x1 then writeln('Верно')    else writeln('Неверно'); end. x-вводимое число, x1-каждая цифра, k-кол-во цифр, s-сумма цифр, d-среднее арифметическое цифр

var number:integer;     digit:integer;     res:boolean; begin   readln(number);   digit:=number mod 10;   number:=number div 10;   res:=true;   while number>0 do begin     if digit<>number mod 10 then begin       res:=false;       break;     end;     number:=number div 10;   end;   if res then writeln('Верно') else writeln('Неверно'); end.