VB.
Dim x as Integer
x=InputBox("Введите x:")
If x mod 4 =0 then MsgBox("Число кратно 4") else MsgBox("Число НЕ кратно 4")
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.