Срочно. Две задачи на Паскале

Question

1. Вводятся произвольные целые числа. Определить количество четных чисел, введенных до ввода числа, кратного k
2. Дано натуральное число N. Определить количество восьмизначных чисел, сумма цифр в записи которых больше, чем N. Если таких чисел нет, вывести на экран слово "нет"

Анастасия · Accepted Answer

var
 k, m, s: longint;
 begin
 write('Введите k: '); readln(k);
 s:=0;
 repeat
 write('Введите число: '); readln(m);
 if not(odd(m)) then s:=s+1
 until m mod k = 0;
 if not(odd(m)) then s:=s-1;
 writeln('Введено ',s,' четных чисел') 
 end.
=========
Введите k: 5
Введите число: 13
Введите число: 6
Введите число: 8
Введите число: 25
Введено 2 четных чисел