Интересно услышать подробности. Дана последовательность чисел : 1 2 3 2 3 4 3 4 5 4 5 6 5 6 7... . Найдите, на каком месте первый раз в данной последовательности встретится число 90

program zz1;var s, s1:string;i,k:integer;begins:=''; s1:='1 '; // задаем начальное значение последовательностиi:=1;s:=s+s1;while k90 do // организуем цикл до числа 90begink:=strtoint(s1);k:=k+1;i:=i+1;if k=90 then break;s1:=inttostr(k); // получаем следующее число последовательности и считаем егоs:=s+s1+' ';k:=strtoint(s1);k:=k+1;i:=i+1;if k=90 then break;s1:=inttostr(k);// получаем следующее число последовательности и считаем егоs:=s+s1+' ';k:=strtoint(s1);k:=k-1;i:=i+1;if k=90 then break;s1:=inttostr(k);// получаем следующее число последовательности и считаем егоs:=s+s1+' ';end;write(s); // выводим полученную последовательность write('i=',i); // выводим ответend.