Тест. Синтаксис языка программирования Паскаль Оператор конца программы Оператор ввода Оператор вывода (почти) Каждая строка программы заканчивается символом… Раздел описания констант Раздел описания переменных Тип данных «вещественное число» Тип данных «целое число» Оператор присваивания Стандартная функция «модуль числа Х» Стандартная функция «квадратный корень из числа Х» Стандартная функция «остаток от деления a на b» Стандартная функция «целая часть от деления а на b»

Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.