Заполни блок-схему алгоритма вычисления периметра прямоугольника

я непонял номально пиши

// использование указателей для создания односвязного списка // сделано на базе демонстрационного примера pascalabc.net // // pascalabc.net 3.2, сборка 1325 от 19.10.2016 type   pnode=^tnode;   tnode=record       data: integer;       next: pnode;   end; function newnode(d: integer; n: pnode): pnode; begin   new(result);   result^.data: =d;   result^.next: =n; end; procedure writenode(a: pnode); // вывод односвязного списка begin   writeln('содержимое односвязного списка: ');   var p: =a;   while p< > nil do begin       write(p^.data,' ');       p: =p^.next;       end;   writeln end; function seeknode(k: integer; a: pnode): pnode; // поиск элемента со значением k в списке begin   var p: =a;   result: =nil;   while p< > nil do begin       if p^.data=k then begin result: =p; break end;       p: =p^.next       end end; function prednode(a,f: pnode): pnode; // поиск предшественника f среди a begin   var p: =a;   while p^.next< > f do p: =p^.next;   result: =p end; procedure clear(a: pnode); // разрушение односвязного списка begin   var p: =a;   while p< > nil do begin       var p1: =p;       p: =p^.next;       dispose(p1); // память обязательно возвращать       end end; var   first,found,father,grandfather,greatgrandfather: pnode;   begin   randomize;   first: =nil;   for var i: =1 to 10 do       first: =newnode(random(100),first);   writenode(first); // первоначальное состояние списка   var k: =readinteger('введите число для поиска в списке');   found: =seeknode(k,first);   if found< > nil then begin       father: =prednode(first,found); // отец       grandfather: =prednode(first,father); // дед       greatgrandfather: =prednode(first,grandfather); // прадед       greatgrandfather^.next: =father;       writeln('элемент ',grandfather^.data, ' удален');       dispose(grandfather);       writenode(first);       k: =readinteger('введите число для вставки');       father^.next: =newnode(k,found);       writenode(first);       end   else writeln('такого числа в списке нет');   clear(first) end.   пример содержимое односвязного списка: 11 75 44 86 88 83 92 18 4 23 введите число для поиска в списке 88 элемент 44 удален содержимое односвязного списка: 11 75 86 88 83 92 18 4 23 введите число для вставки 40 содержимое односвязного списка: 11 75 86 40 88 83 92 18 4 23