Нужно обьяснить программу.

[Smok40]

program Project4;


Var
i,k,x:integer;mas:array[1..20] of integer;flag:boolean;
procedure prost (x:integer;var f:boolean);
var
j:integer;


{$APPTYPE CONSOLE}



begin
f:=true;


if(x=1) or (x=2) then exit;
{числа 1 и ? заведомо являются простыми}
for j:=2 to x-1 do {в цикле перебераются все возможые}
if x mod j=0 then {делители числа кроме самого числа}
begin f:=false;exit; end; {4 единицы}
end;
begin
randomize;
k:=0;{k - счетчик количества простых чисел}
writeln ('массив состоит из следующих элементов:');
for i:=1 to 20 do
begin
mas [i]:=random(99)+1;
write (mas [i],'');
x:=mas[i];
prost(x,flag); {}
                 {является ли число простым}
end;
writeln;
writeln;
writeln('количество элементов массивов являющих простыми числами');
writeln ('ровно',k);
readln
end.

вообщем нужно объяснить что делает эта программа.

[NetSpace]

эта программа ищет в случайно созданном массиве из 20 элементов простые числа, типа 3, 5, 7, 11, 13, 17, 19 и т.д. и выводит результат - их количество - на экран.

[Serge_Bliznykov]

эта программа ищет простые числа

угу. причём с ошибками...

1)

if(x=1) or (x=2) then exit;
{числа 1 и ? заведомо являются простыми}

Это ошибка. Число 1 не является простым. Ряд простых чисел начинается с двойки.

2) программа не изменяет счётчик простых чисел k, поэтому всегда будет писать, что
"количество элементов массивов являющих простыми числами ровно " нулю!

[newerow1989]

Дописать:

If flag then k:=k+1;