Найти сумму всех целых трехзначных чисел которые делятся на 3 и 9 или оканчиваются 5

Var   i, s: longint; begin   s : = 0;   for i : = 100 to 999 do       if (i mod 9 = 0) or (i mod 100 = 5) then s : = s + i;       {если число делится на 9, то оно делится и на 3}   writeln('сумма равна ', s) end. результат выполнения программы: сумма равна 59490

Procedure age(n: integer); var   m: integer;   s: string; begin   if ((n > = 11) and (n < = 20)) or ((n > = 111) and (n < = 120)) then s : = 'лет'   else begin       m : = n mod 10;       case m of           1: s : = 'год';           2..4: s : = 'года';       else s : = 'лет'       end   end;   writeln('возраст равен ', n, ' ', s) end;

Х) var   i, k, b, a, sum: integer; begin   for i : = 1 to 4 do   begin     readln(a);     b : = a;     k : = a;     while (b > 0) do     begin       if (b mod 10 = 5) then       begin         k : = 0;       end;       b : = b div 10;     end;     sum : = sum + k;   end;   writeln(sum); end.