Написать программу на языке Pascal: Задача: Вводятся целые числа до первого числа, которое меньше двух. Определить, сколько простых чисел было введено. Описание переменных: q - счетчик простых чисел; n - очередное введенное число. Алгоритм решения задачи: Пока введенное число больше 1, проверять его на простоту по следующему алгоритму: Если число делится на любой делитель от 2 до половины от себя, то оно не простое. Если число так и не разделилось ни на один из перебранных делителей, то оно простое, следовательно, увеличиваем счетчик простых чисел.

var q,n,i,k,h:integer;beginreadln(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.