Сапрограмувати кнопку ,,Підрахувати" var
Form1: TForm1;
a: array [0..14] of Integer;
k,num,i:integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TOhject);
begin
num:=StrToln(Edit1.Text);
k=0;
for i:=0 to 14 do
begin
a[i]:=StrTolnt(Memo1.Lines[1];
if a[i]=num then k:=k+1;
end;
label2.Caption:=IntToStr(k)+' повторень';
end;
end.

import turtle

t = turtle.Pen()

t.speed(0)

t.fillcolor("orange")

t.begin_fill()

for i in range(4):

   t.fd(150)

   t.left(90)

t.end_fill()

t.left(90)

t.fd(150)

t.right(45)

t.fillcolor('brown')

t.begin_fill()

t.fd(106)

t.right(90)

t.fd(106)

t.end_fill()

t.up()

t.right(135)

t.fd(50)

t.left(90)

t.fd(50)

t.down()

t.fillcolor("grey")

for n in range(4):

   t.begin_fill()

   for i in range(4):

       t.fd(25)

       t.right(90)

   t.end_fill()

   t.fd(50)

   t.right(90)

t.hideturtle()

turtle.mainloop()

Алгори́тм (лат. algorithmi — от имени среднеазиатского математика Аль-Хорезми[1]) — конечная совокупность точно заданных правил решения некоторого класса задач или набор инструкций, описывающих порядок действий исполнителя для решения определённой задачи. В старой трактовке вместо слова «порядок» использовалось слово «последовательность», но по мере развития параллельности в работе компьютеров слово «последовательность» стали заменять более общим словом «порядок». Независимые инструкции могут выполняться в произвольном порядке, параллельно, если это позволяют используемые исполнители.