Помогите пожалуйста!!!!Срочно!!!!98 баллов за выполнение!!!!1. Дано двузначное число.

1 задачка

var a: string;

begin

 write('Введите двузначное число: ');

 readln(a);

 writeln((a.First() = a.Last()) ? 'Числа схожи' : 'Числа различаются');

end.

2 задачка

var  

 month: integer;

 season: string;

begin

 write('Введите номер месяца: ');

 readln(month);

 case month of

   1,2,12: season := 'Зима';

   3..5:   season := 'Весна';

   6..8:   season := 'Лето';

   9..11:  season := 'Осень';

   else    season := 'Вы ввели неправильный номер месяца';

 end;

 writeln(season)

end.

3 задачка

var  

 age: integer;

 ending: string;

begin

 write('Введите возраст: ');

 readln(age);

 if (age mod 100 gt;= 10) and (age mod 100 lt;= 20)  

   then ending := 'лет'

 else

   case (age mod 10) of

     1: ending := 'год';

     2..4: ending := 'года';

     5..9, 0: ending := 'лет'

   end;

 write(age, ' ', ending)

end.