Навіщо власник намагається підвищити рейтинг сайту?​

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

в некотором царстве, в некотором государстве жила-была… нет! так все сказки начинаются. а моя сказка начинается по-другому. на далёком острове среди бушующего океана информации раскинулось государство технология. царствовала там мудрая информатика. и были у неё подданные: микросхемы, мониторы, процессоры, клавиатуры, компьютерные мыши и многие другие жители. захотела информатика общаться с другими государствами и построила интернет-порталы. узнали о государстве технология на близких островах и далёких землях. царица информатика была щедрой правительницей. она приходила на всем, кто её об этом просил. все радовались неоценимым подаркам информатики. но один злой правитель захотел всё могущество и знание информатики прибрать к своим рукам. однако ему не удалось заполучить её знания, поэтому он решил причинить информатике вред. и начал он создавать армию вирусов. вирусы были коварные. под видом добрых намерений они пробирались в дома к программам и портили их. информатика и не догадывалась, какая угроза нависла над её жителями. однажды она зашла к windows xp, а он оказался испорченным и не узнал её. информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. windows вспомнил и сказал об этом информатике. информатика созвала совет старейшин и рассказала им о проблеме. посовещавшись, они вместе начали создавать антивирусы. получилось целое войско: dr. web, kaspersky, avira, panda, nod32 и другие. когда следующая партия вирусов прошла через интернет, на них набросились антивирусы и связали их. подлые враги рассказали, кто их сделал. злого правителя поймали, посадили в клетку. царица информатика не закрыла интернет, а только расставила на границах стражу от вирусов. так и по сей день правит информатика в своём государстве и делится своими знаниями с добрыми людьми 

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

var

b1,b2,i,n,p: integer;

begin

write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);

p: =-1;

for i: =2 to n do

begin

p: =p*(-1);

b2: =p*b1-8;

writeln (i,' элемент = ', b2);

b1: =b2;

end;

end.