Скорее всего так:
Книга- лучший друг человека.
В этом году была холодная зима.
Зачем ты это сделал?
Дети и сказку "Кот в сапогах"
Var a,i:integer;
m:array[1..10] of integer;
begin
a:=10;
randomize;
for i:=1 to a do
begin
m[i]:=random(21);
end;
for i:=1 to a do
if (m[i]>5) and (m[i]<15) then
writeln(m[i]);
<span>end. </span>
var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.
1)
использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(1,0)
сместиться на вектор(0,-5)
сместиться на вектор(-1,0)
сместиться на вектор(0,5)
сместиться на вектор(1,0)
кц
<span>кон
2.а)
использовать Чертежник
алг нач
опустить перо
нц 5 раз
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(1,1)
сместиться на вектор(1,-1)кц
нц 5 раз
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
сместиться на вектор(0,1)
кц
<span>кон
2.б)</span></span>использовать Чертежник
<span>алг
нач
нц 4 раз
нц 3 раз
сместиться на вектор(1,-3)
опустить перо
сместиться на вектор(0,-1)
сместиться на вектор(-1,0)
поднять перо
кц
сместиться на вектор(2,13)
кц
<span>кон
</span>2.в)</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(2,0)
сместиться на вектор(-2,0)
сместиться на вектор(0,-2)
поднять перо
сместиться на вектор(1,1)
кц
сместиться на вектор(7,5)
нц 5 раз
опустить перо
сместиться на вектор(-2,0)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
поднять перо
сместиться на вектор(-1,1)
кц
сместиться на вектор(-7,-7)
нц 5 раз
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(0,-2)
сместиться на вектор(2,0)
поднять перо
сместиться на вектор(-1,1)
кц
сместиться на вектор(7,-5)
нц 5 раз
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(1,1)
кц
<span>кон</span>