Ответ:

var

a, b:integer; - объявляем переменные

begin - старт программы

writeln(' '); - вывод пустрой строки

readln(a); - считываем текст с клавиаатуры и записываем его в переменную 'a'

b:=2; - Задаём значение 'b' равное двум

while (b<=a) and (a mod b <>0) do - запускаем цикл , если b меньше или равно a и если остаток от деления не равен нулю)'

b:=b+1; - увеличиваем значение 'b' на еденицу.

writeln(' ', b); - вывод переменной 'b'

end. - Конец  программы