Составить программу, определяющую является ли число введенное с клавиатуры кратным пяти. ответ выводится в формате "да" или "нет". (в qbasic)

Бейсик не учил, но в паскале примерно так.
Program z123;
var a:integer;  вроде у вас это input a 
if a mod 5 = 0 then write ('ваше число кратно пяти') else write ('не кратно пяти );
end.

INPUT a
IF a MOD 5 = 0 THEN PRINT "yes" ELSE PRINT "no"