Найти все двузначные простые числа (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя) для Паскаля

Var A, i, k:byte;

Begin

Write ('Простые двузначные числа:') ;

For A: = 10 to 99 do

Begin

k:=0;

For i: = 2 to A div 2 do

if A mod i = 0 then k:=k+1;

if k = 0 then Write (' ', A)

End

End.

Результат работы программы:

Простые двузначные числа: 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97