Створення сайту засобами системи керування вмістом веб-сайтів. Етапи розробки веб-сайтівво по этой теме)

Здесь нужно проанализировать, какое слово следует написать в зависимости от введенного числа.
Если число оканчивается на 0, 5, 6, 7, 8, 9, то нужно написать "лет".
Если число оканчивается на 1, то нужно написать "год".
Если число оканчивается на 2, 3, 4, то нужно написать "года".
НО! Исключение составляют числа от 11, до 19, здесь всегда нужно писать "лет". Поэтому в программе проверяются и само число n и последний разряд этого числа x.

Программа:

program z;
var n,x:integer;
begin
readln(n);    {вводим число}
x:=n mod 10;    {вычислим последний разряд числа}
if (x=0) or ((n>10) and (n<=19)) or (x>=5) then writeln(n,' лет')
else
if x=1 then writeln(n,' год')
else
if (x>1)and(x<5) then writeln(n,' года');
end.

Var InFile, OutFile: text; // Вводной и выводной файлы
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
  Append(OutFile)
  Result:=(-b + sqrt(D)) / 2 * a
  Write(OutFile,Result)
  Write("Корень уравнения")
  WriteLn(Result)
  if (D>0) then
    Result:=(-b - sqrt(D)) / 2 * a
    Write(OutFile, Result)
    Write("Второй корень уравнения")
    Write(Result)
  End;
End.