Sonrе условие о 30
логических операций.
Запишите условие

Вариант с процедурой delete var   s: string;   k: integer; begin   write('введите слово: '); readln(s);   write('какую по порядку букву удалить? '); read(k);   delete(s,k,1);   writeln('результат: ',s) end. вариант с функцией copy var   s: string;   k,n: integer; begin   write('введите слово: '); readln(s);   write('какую по порядку букву удалить? '); read(k);   n: =length(s);   s: =copy(s,1,k-1)+copy(s,k+1,n-k);   writeln('результат: ',s) end. вариант с циклами var   s,s1: string;   k,i,n: integer; begin   write('введите слово: '); readln(s);   write('какую по порядку букву удалить? '); read(k);   n: =length(s);   s1: ='';   for i: =1 to k-1 do s1: =s1+s[i];   for i: =k+1 to n do s1: =s1+s[i];   writeln('результат: ',s1) end. тестовое решение (одинаково для всех вариантов): введите слово: таракан какую по порядку букву удалить? 4 результат: таркан блок-схемы всех вариантов находятся во вложениях