Календарь и текст на паскале - Turbo Pascal

Формулировка задачи:

Ребят, учусь в КПИ и по теории алгоритмов уже заработал первую неатестацию, помогите плз написать 2 програмки и обьясните как их делать: 1)Программа. В заданный непустой текст входят только цифры и буквы. Определить, удовлетворяет ли он следующему свойству: текст совпадает с начальным отрезком ряда 0123456789 (например, 0, 01, 012); 2)В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год—год зеленой крысы - был началом очередного цикла). Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскоыу календарю. Задачи из учебника "Пильщиков", буду очень признателен за помощ.

Решение задачи: «Календарь и текст на паскале»

Листинг программы

var
a,s:string;
begin
a:='0123456789';
readln(s);
if copy(a,1,length(s))=s then writeln('yes') else writeln('no');
readln;
end.

Объяснение кода листинга программы

Объявляются две переменные типа строка: a и s.
Строка a инициализируется значением '0123456789'.
С помощью функции readln считывается ввод пользователя.
Если первая буква введенной строки (s) совпадает с первой буквой строки a, то выводится значение 'yes'.
Если нет - выводится значение 'no'.
Функция readln используется повторно для получения ввода пользователя.