Определить простое число или нет - Turbo Pascal

Формулировка задачи:

Нужна помощь. Как написать программу что бы она определяла какое число вводишь простое или нет.

Решение задачи: «Определить простое число или нет»

Листинг программы

program chisla;
uses crt;
var i,a,k: integer;
begin
 clrscr;
 write('введите число: ');
 readln(a);
 k:=0;
 for i:=2 to a div 2 do
 if a mod i =0 then k:=k+1;
 if k=0 then write('простое')
 else writeln('не простое');
 readln;
end.

Объяснение кода листинга программы

В программе объявляются три переменные: i, a и k типа Integer.
Строка clrscr; очищает экран.
Строка write('введите число: '); выводит на экран сообщение введите число:.
Строка readln(a) считывает число с экрана и сохраняет его в переменной a.
Переменная k инициализируется значением 0.
В цикле for i:=2 to a div 2 do происходит проверка на деление числа a на i без остатка. Если остаток от деления равен нулю, то переменная k увеличивается на 1.
После завершения цикла, если значение переменной k равно 0, то выводится на экран строка простое. В противном случае выводится строка не простое.
Программа завершается после вывода последней строки.