Помогите,пожалуйста,даю 50 баллов! Задача Pascal. Ввести число с клавиатуры,если это число кратно 8 и кратно 10,то вывести в ответ Yes, иначе No

Вопрос школьника по предмету Информатика

Помогите,пожалуйста,даю 50 баллов!
Задача Pascal.
Ввести число с клавиатуры,если это число кратно 8 и кратно 10,то вывести в ответ Yes, иначе No

Ответ учителя по предмету Информатика

Ответ:

Var N:Integer;

begin

read(N);

if (N mod 8 = 0) and (N mod 10 = 0) then

write(‘YES’)

else

write(‘=NO’) ;

end.