Question

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

Answer 1

var a: integer;

begin

 readln(a);

 if (a mod 8=0) and (a mod 10=0) then writeln('Yes') else writeln  ('no')

 end.