Найдите в массиве все простые числа и скопируйте их в новый массив. с командой array без рандомайза! паскаль.

Var a,b: array[1..10] of integer; i,n: integer; beginn: =1; for i: =1 to 10 do readln(a[i]); for i: =1 to 10 dobeginif a[i]< > 0 then beginb[n]: =a[i]; inc(n); end; end; if n=1 then writeln('элементов нет') elsefor i: =1 to n-1 do writeln(i,': ',b[i]); end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.