На координатной плоскости отметьте и пронумеруйте точки со следующими координатами: a(2, 5), b(6, 5), c(11, 7, )d(11, 4), e(6, 2), f(2, 2), g(4, 8), h(9, 9), i(3, 2), j(3, 4), k(5, 4), l(5, 2соедините точки: a-b-c-d-e-f-a-g-h-c.g-b-e.i-j-k-l.

Соедините точки: a-b-c-d-e-f-a-g-h-c.в этом месте не хватает точки а g-b-e.i-j-k-l. рисунок см. во вложении.

Var s,s1: string; k,ks,p,l,n,i: integer; begin writeln('введите слова: '); readln(s); write('k = '); readln(k); s: =s+', '; ks: =0; p: =pos(', ',s); while p> 0 do   begin   s1: =copy(s,1,p-1);   l: =length(s1);   if l=k then     begin     n: =0;     for i: =1 to l do if s1[i]='ы' then n: =n+1;     if n> 1 then begin writeln(s1); ks: =ks+1; end;     end;   delete(s,1,l+2);   p: =pos(', ',s);   end; writeln('ks = ',ks); end. пример: введите слова: вымысел, вышка, барышня, бутылка, выигрыш, розыгрыш, верблюд, крылышко k = 7 вымысел выигрыш ks = 2

Для того, чтобы эта программа заработала надо добавить перед описанием процедуры f следующую строчку: procedure g(n: integer); forward; так как в процедуре f есть вызов процедуры g описанной дальше по тексту программы. после исправления кода и запуска программы с f(12) получим 17 звездочек. по шагам это будет выглядеть так:   вызов процедуры f и выполнение * n = 12 * n = 12 вызов процедуры g и выполнение * n = 11 * n = 11 вызов процедуры f и выполнение * n = 9 * n = 9 вызов процедуры g и выполнение * n = 8 * n = 8 вызов процедуры fи выполнение * n = 6 * n = 6 вызов процедуры g и выполнение * n = 5 * n = 5 вызов процедуры f и выполнение * n = 3 * n = 3 вызов процедуры g и выполнение * n = 2 * n = 2 вызов процедуры f и выполнение * n = 0