С! вам дана строка s, состоящая из строчных латинских букв. ваша — удалить из этой строки последнюю из букв «l», если такая буква есть в строке, и вывести изменённую строку. латинская строчная буква «l» имеет ascii-код 108. если строка не содержит такую букву, выведите исходную строку, ничего не удаляя. формат входных данных в первой и единственной строке входных данных лежит строка s, чья длина не превосходит 100. формат выходных данных выведите строку, получившуюся из данной удалением последней из букв «l». примеры входные данные iloverockandroll выходные данные iloverockandrol или входные данные alagunto выходные данные aagunto

Var a: array[1..10] of integer;   i,j,k: integer; begin for i: =1 to 10 do begin   write('a[',i,'] = ');   readln(a[i]); end; j: =0; k: =0;   for i: =1 to n do   begin   if a[i]> 0 then   begin j: =j+1; if j=3 then k: =i; end;   end; if k> 0   then writeln('третий положительный элемент: a[',k,'] = ',a[k])   else writeln('в массиве нет трех положительных элементов'); readln; end. пример: a[1] = -5a[2] = 8a[3] = -9a[4] = 7a[5] = -3a[6] = -1a[7] = 6a[8] = -3a[9] = 2a[10] = 4третий положительный элемент: a[7] = 6

Program massiv; {$apptype console} uses  sysutils; var  i: integer; // счетчик    a: array[1..10] of integer; // объявляем массив из 10 целых элементов begin // вводим элементы массива с клавиатуры  for i: =1 to 10 do   // цикл    begin        writeln('vvedite element massiva i nagmite > > enter');         write('a[',i,']=');         write(a[i]);         read(a[i])    end;   i: =1; j: =0; // счетчик для поиска 3-го элемента    repeat      if a[i]< =0          then         inc(i) // переходим к следующему элементу                else              begin                  inc(j); // отмечаем найденный положительный элемент                 inc(i)   // переходим к следующему элементу              end;       until (j=3) or (i=11); // до тех пор пока не найден 3-й положительный элемент                                   // либо не проверен весь массив   if j=3        then // есть как минимум три положительных элемента   в массиве              writeln('3 pologitelniy element a[',i-1,']=', a[i-1])        else // в массиве меньше трех положительных элементов            writeln('net 3 pologitelnogo eltmenta = '); readln;   readln   { todo -ouser -cconsole main : insert code here } end.