Дайын диаграмманың деректер таңбасын өзгертуге болады ма​

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

посадка дерева: 1.купить семя.

2.найти место для посадки.3.вскопать яму.4.посадить семя.5.закопать яму.переход улицы по светофору: 1.подойти к дороге (к светофору)2.посмотреть на цвет, который сейчас горит.3.дождаться нужного цвета.4.перейти дорогу.5.отправиться дальше.

50 страниц.= 50*20 строк = 50*20*10 символов = 50*20*10 байт = 10 000 байт

10 картинок=10*100*200 пикселей = 10*100*200*3 байта = 600 000 байт

в результате выполнения первого цикла

  for i: =1 tо n do a[i] : = i

в массиве будут находится числа от 1 до 10 по возрастанию

j: =1

затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1

так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9

значит j станет равно 10