Фу такие задания давать школьникам...

begin

 var y1 := ReadInteger('В каком году ты родился?' + NewLine);

 var y2 := ReadInteger('Какой сейчас год?' + NewLine);

 var y := y2 - y1;

 if y.InRange(0, 99) then

 begin

   Write('Тебе в этом году ', y, ' ');

   if y < 21 then

     case y of

       0, 5..20: Writeln('лет');

       1: Writeln('год');

       2..4: Writeln('года')

     end

   else

   begin

     var z := y mod 10;

     case z of

       0, 5..9: Writeln('лет');

       1: Writeln('год');

       2..4: Writeln('года')

     end

   end

 end

 else

   Println('Не пиши ерунду!')

end.

Вторая задача

begin

 Writeln('Введи два числа');

 var a := ReadInteger('a=');

 var b := ReadInteger('b=');

 $'Квадрат суммы {a} и {b} равен {(Sqr(a + b))}'.Println;

 $'Сумма квадратов {a} и {b} равна {a * a + b * b}'.Println;

end.