Здравствуйте задача в PascalABC:
Проверить, состоит ли в введённое слово из одинаковых букв.
Пример собака - нет, - да.

1. Три ряда и два столбца размечаем :

Столбцы: "Год", "Месяц"

Ряды: "День рождения", "Текущая дата", "Возраст"

2. "День рождения" заполняем вручную, указываем в столбце "Год" - год рождения, в столбце "Месяц" - соответственно месяц рождения.

3. По формулам заполняем текущую дату в ряде "Текущая дата", формула для столбца "Год":

— "=YEAR(TODAY())", функция TODAY() - возращает текущую дату в формате Exel, функция YEAR() - принемает дату формата Exel и возращает год в виде целого числа.

— "=MONTH(TODAY())", работает схоже с предыдущей функцией, но в отличии от нее, определяет из текущей даты - месяц.

4. Заполняем ряд "Возраст", тут указываем формулы для столбца "Год" и"Месяц" простые формулы, где вычетаем из текущей даты - дату рождения.

фото закреплено

Uses graphABC;beginsetwindowsize(600,500);setbrushcolor(clMedGray);Ellipse(320,30,490,400);Ellipse(120,30,300,400);setbrushcolor(clCream);Ellipse(335,40,480,380);Ellipse(140,40,280,380);setbrushcolor(clMedGray);Ellipse(100,430,500,130);setbrushcolor(clNavy);Ellipse(250,240,200,310);Ellipse(350,240,400,310);setbrushcolor(clwhite);Ellipse(240,270,220,300);Ellipse(360,270,380,300);
setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40);
line(50,350,200,350);line(30,340,190,340);line(10,330,180,330);
line(410,330,570,330);line(400,340,560,340);line(390,350,550,350);
line(240,230,220,150);line(230,230,180,80);line(220,230,180,150);
line(360,230,380,150);line(370,230,430,80);line(380,230,430,150);
end.