Помогите срочно,пожалуйста! Задача по программе Паскаль. Ввести число с клавиатуры,если это число кратно 8 и кратно 10,то вывести в ответ Yes, иначе No
var a: integer;
begin
readln(a);
if (a mod 8=0) and (a mod 10=0) then writeln('Yes') else writeln ('no')
end.