Помогите с паскалем пожалуйста!

Есть ли 3, 6, 9 в пятизначном?


Дано пятизначное число. Напишите программу, которая определит ответы на следующие вопросы:

Входит ли в данное число цифра 3?
Входит ли в данное число цифра 6?
Входит ли в данное число цифра 9?
Входят ли в данное число все три цифры одновременно?
Формат входных данных

Целое пятизначное положительное число (10000 ≤ N ≤ 99999)
Формат выходных данных

4 строки, на каждой из них ответ на соответствующий вопрос: "YES" если условие выполняется, "NO" в обратном случае.
Примеры

входные данные................... выходные данные
13690
.................................................YES
.................................................YES
.................................................YES
.................................................YES
13600
.................................................YES
.................................................YES
.................................................NO
.................................................NO

Спасибо большое))

Пожалуйста.

var a,b,i:integer; f3,f6,f9:boolean;beginreadln(a);f3:=false;f6:=false;f9:=false;for i:=1 to 5 do begin b:=a mod 10; if b=3 then f3:=true; if b=6 then f6:=true; if b=9 then f9:=true; a:=a div 10; end;if f3 then writeln('YES') else writeln('NO');if f6 then writeln('YES') else writeln('NO');if f9 then writeln('YES') else writeln('NO');if f3 and f6 and f9 then writeln('YES') else writeln('NO');end.Пример:13600YESYESNONO