Дано:

алг индекс_0
нач
опустить перо
сместиться на вектор (−1,0)
сместиться на вектор (0,−2)
сместиться на вектор (1,0)
сместиться на вектор (0,2)
поднять перо
сместиться на вектор (2,0)
кон

алг индекс_6
нач
опустить перо
сместиться на вектор (−1,−1)
сместиться на вектор (1,0)
сместиться на вектор (0,−1)
сместиться на вектор (−1,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (3,1)
кон

Запиши основной алгоритм, с которого будет нарисован индекс 660060

сместиться в точку (2,3)

const

m=8;

var

arr: array[1..m] of integer;

max_num: integer;

i: integer;

Summ: integer;

min_num: integer;

x: integer;

begin

randomize;

Summ:=0;

x:=random(20,70);

for i := 1 to x do begin

arr[i] := random(10);

Summ+=arr[i];

writeln (arr[i]);//вывод элементов на экран

end;

max_num := arr[1];

for i := 2 to m do

if arr[i] > max_num then begin

max_num := arr[i];

end;

min_num := arr[1];

for i := 2 to m do

if arr[i] < min_num then begin

min_num := arr[i];

end;

writeln('Summ = ',summ);//Сумма

writeln ('Max = ',max_num);//Максимальный

writeln('Min = ', min_num);//минимальный элемент

writeln('Сount_of_elements = ',x);//количество элементов

end.

Объяснение:

вроде в коде подписано что нужно

Pascal

var

 s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 i : integer;

 s1, sR : string;

begin

 s:=s+' ';

 i :=1;

 sR :='';

 s1:='';

 while i <= length(s) do begin

   if (s[i] = ' ') then begin

      if s1[1] <> UpperCase(s1[1]) then

          sR := sr + s1 + ' ';

      s1:=''

   end

   else

     s1:=s1 + s[i];

   inc(i);

 end;

 delete(sR, length(sR), 1);

 print(sR);

end.

А вот на PascalABC.Net.  заметно короче будет

begin

 var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();

 println(a);

end.