Вводятся целые числа до первого числа, которое меньше двух. Определить, сколько простых чисел было введено.

var q,n,i,k,h:integer;

begin

readln(n);

h:=1;

while n>1 do

 begin

 k:=n div 2;

 for i:=2 to k do

   if n mod i=0 then h:=0;

 q:=q+h;

 h:=1;

 readln(n);

 end;

writeln('Простых чисел: ',q)

end.

Объяснение: