Надо в программе специальной , сделать машину с черепашки. И прислать её файлом. Вот такую⬇️

Это изи, я объясню как сделать и всё.

Объяснение:

смотри есть команды:

опустить перо - чтобы начать рисовать

вперёд(цифра) - идти в том напровление куда она смотрит

назад(цифра) - идти в противоположное направление куда она смотрит

налево(цифра) - повернутся налево на сколько-то градусов

направо(цифра) - повернуть на право на сколько-то градусов

Информативность сообщения

область взаимодействия между человеком, воспринимающим текст, и информационной насыщенностью текста, обусловленная избирательной воспринимающего человека, т.е. пределом различимости. Для различимости, т.е. понимания смысла высказывания, переводчику необходимо применить весь предыдущий опыт или знание обстановки общения именно к данному языковому содержанию. Информативность сообщения основывается на следующих требованиях: (1) синтаксических, согласно которым смысл должен быть логически вводим из наблюдаемого соотношения языковых единиц. Это означает, что переводчик должен установить принадлежность исходного текста к определенной знаковой системе по характеру отношений между знаками, составляющими текст; (2) семантических, согласно которым смысл, выводимый из данного соотношения языковых единиц, отражает то или иное состояние реальной действительности, включая вымысел. Это означает, что переводчик должен соотнести языковое содержание данного текста со смыслом (отражение реальной или вымышленной ситуации); (3) прагматических, согласно которым в смысл, придаваемый тексту, включается оценка как отраженной действительности, так и ее отражения. Это означает, что переводчик должен дать оценку, близкую к авторской или соответствующую непосредственным задачам перевода.

Сколько элементов массива?
Допустим, 10.

Var
A: array [1..10] of integer;
i, min, max, imin, imax: integer;
Begin
for i:=1 to 10 do
read(A[i]);
min:=A[1]; max:=A[1];
for i:=1 to 10 do
begin
if A[i] > max then
begin
max:=A[i];
imax:=i;
end;
if A[i] < min then
begin
min:=A[i];
imin:=i;
end;
end;
if imin<imax then
for i:=(imin+1) to (imax-1) do
A[i]:=sqr(A[i])
else
for i:=(imax+1) to (imin-1) do
A[i]:=sqr(A[i]);
writeln('Максимальное значение: ', max, ', минимальное: ', min);
for i:=1 to 10 do
write(A[i], ', ');
end.

Немного пояснений:
по условию, только элементы между минимумом и максимумом возводятся в квадрат, отсюда эти imax-1 и imin+1.

Пример действия:
1
2
4
999
765
624
0
83
64
63
Максимальное значение: 999, минимальное: 0
1, 2, 4, 999, 585225, 389376, 0, 83, 64, 63,