Алгоритм

1. Ввести первое число.

2. Пока нет признака конца последовательности выполнять

2.1. Положить число простое

2.2. Для делителя от 2 до ]число/2[ выполнять

если число делится на делитель, то

а) вывести делитель и

б) изменить предположение – «не простое».

2.3. Если число простое, то вывести: "простое число"

2.4. Прочитать следующее число.

3. Закончить.

Программа для этого алгоритма будет иметь вид

Program Dividers;

Const

d=2;

Var

Num, Del,P : Integer;

Begin

Writeln ('Введите число'); { п.1 }

Readln(Num);

{ п.2 }

While Num <>0 Do

Begin

P := 0; { п.2.1 – число простое }

For Del := d To Num Div d Do

Begin

If Num Mod Del=0 Then

Begin

Write(Del);

P := 1; { число не простое }

End;

End;

If P=0 Then{ п.2.3 }

Writeln('Число ',Num,' - простое');

Writeln('Введите число'); { п.2.4 }

Read(Num);

End;

End.

В программе использован оператор While, так как уже первое число может быть нулем и цикл выполнять не нужно.

Сведем основные операторы языка Паскаль и описатели данных в табл. 2 и 3 соответственно.

Основные операторы языка Паскаль Таблица 2

Таблица 3.