3. В одновимірному динамічному масиві, що складається з n дійсних елементів, запишіть:
1) Виокремлені з числа N цифри кратні 3
2) впорядкуйте їх за зростанням
3) змістіть циклічно елементи масиву на К позицій вправо
4) реалізувати завдання у вигляді функцій​

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var a:=MatrixRandom(7,7,0,9);
  var k:=0;
  for var i:=0 to 6 do begin
    for var j:=0 to 6 do begin
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

Тестовое решение:
  2  1  7  3  3  2  7
  9  2  9  2  0  5  5
  4  2  6  9  4  6  0
  1  0  3  5  4  5  9
  6  3  6  0  2  0  8
  0  8  4  3  2  1  8
  6  0  4  4  5  4  0
Кол-во элементов на [1,5]: 27

Вариант "совсем для школы"

const
  n=7;
var
  a:array[1..n,1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  k:=0;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(10);
      Write(a[i,j]:3);
      if a[i,j] in [1..5] then Inc(k)
      end;
    Writeln
    end;
  Writeln('Кол-во элементов на [1,5]: ',k)
end.

uses GraphABC;

var

 p:array[0..7]of Point;

begin

 p[0].x := 100; p[0].y := 50;

 p[1].x := 200; p[1].y := 150;

 p[2].x := 200; p[2].y := 200;

 p[3].x := 100; p[3].y := 400;

 p[4].x := 150; p[4].y := 200;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2],p[3],p[4]); // хвост

 p[0].x := 200; p[0].y := 150;

 p[1].x := 200; p[1].y := 200;

 p[2].x := 300; p[2].y := 250;

 p[3].x := 500; p[3].y := 250;

 p[4].x := 550; p[4].y := 200;

 p[5].x := 550; p[5].y := 150;

 p[6].x := 500; p[6].y := 100;

 p[7].x := 300; p[7].y := 100;

 SetBrushColor(rgb(200,200,200));

 Polygon(p[0],p[1],p[2],p[3],p[4],p[5],p[6],p[7]); // тело

 p[0].x := 300; p[0].y := 100;

 p[1].x := 350; p[1].y := 50;

 p[2].x := 500; p[2].y := 100;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2]); // верхний плавник

 p[0].x := 300; p[0].y := 250;

 p[1].x := 350; p[1].y := 300;

 p[2].x := 500; p[2].y := 250;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2]); // нижний плавник

 SetBrushColor(rgb(0,0,0));

 rectangle(550,150,560,200); // рот

 SetBrushColor(rgb(70,70,70));

 circle(500,150,10); // внешний круг глаза

 SetBrushColor(rgb(0,0,0));

 circle(500,150,5); // внутренний круг глаза

end.