Ответ:
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. - Конец программы