Составьте словесный алгоритм и блок-схему работы работа по сортировке кубиков и шариков. Кубики робот складывает в коробку, шарики в корзинку.

Робот проверяет фигуру. Если это куб тогда робот ложит в коробку. Если это шарик тогда робот ложит в корзину.

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.