由键盘输入一个正整数，找出大于或等于该数的第一个质数。

vb作业，谢谢~

PROGRAM Exam(output)；
VAR
k，a：Integer；
f：Boolean；
BEGIN
f：＝False；
Read (a)；
WHILE NOT f DO
BEGIN
k：＝2；
f：＝——(1)——
WHILE f AND (k＜(a DIV 2)) D0
IF (a MOD k)＝0 THEN f：＝——(2)——
ELSE ——(3)——；
IF NOT f THEN
a：=a+1；
END；
Writeln(a)；
END．
解答：本题中，程序通过一个标志量f来标志是否结束查找的过程。如果f为True，则继续寻找，即将a的值加1。否则此时的a即为所求的质数。
本题的正确答案为：(1)True：(2)False：(3)k：＝k+1。