Напишите программу которая определяет верно ли что введенное число состоит из одинаковых цифр паскаль

var z,a,s:integer;
begin
readln(z)
a:=z mod 10;
z:=z div 10;
s:=0;
while (z>0) and (s=0) do
if z mod 10<>a then s:=1
else z:=z div 10;
if s=0 then write ('yes')
else write('no');
end.

Растровый графический редактор — специализированная программа, предназначенная для создания и обработки растровых изображений, то есть графики, которая в память компьютера записывается как набор точек, а не как совокупность формул геометрических фигур. Подобные программные продукты нашли широкое применение в работе художников-иллюстраторов, при подготовке изображений к печати типографским или на фотобумаге, публикации в интернете.

Векторные графические редакторы позволяют пользователю создавать и редактировать векторные изображения непосредственно на экране компьютера, а также сохранять их в различных векторных форматах, например, CDR, AI, EPS, WMF или SVG.

Задание №1
var
  a, b, n: integer;

begin
  readln(a, b);
  n := a - b;
  case n of
    1..65536: writeln('a>b');
    0: writeln('a=b');
  else writeln( 'a<b');
  end;
end.

Задание №2

var  a: integer;
begin
    writeln('Введите год рождения'); readln(a);
    write('Вы родились в ');
    case a mod 12 of
        0: writeln('год Обезьяны.');
        1: writeln('год Петуха.');
        2: writeln('год Собаки.');
        3: writeln('год Свиньи.');
        4: writeln('год Крысы.');
        5: writeln('год Быка.');
        6: writeln('год Тигра.');
        7: writeln('год Кролика.');
        8: writeln('год Дракона.');
        9: writeln('год Змеи.');
        10: writeln('год Лошади.');
        11: writeln('год Козы.');
  end;
end.