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

Предыдущий
вопрос Следующий
вопрос

program SameDigits;

va
num, prevDigit, currentDigit: Integer
sameDigits: Boolean;

begi
write('Enter a number: ')
readln(num);

prevDigit := num mod 10
sameDigits := True;

while num > 0 d
begi
currentDigit := num mod 10;

end;

if sameDigits the
writeln('All digits are the same'
els
writeln('Digits are not the same')
end.