Придумать рассказ про ослика, книгу и ноутбук

    был себе ослик он 1 дня читал книгу и не дочитал. 2 дня он её не знайшол. и он спомнил что книгу можно прочитать в интернете.

1.  var   n, i: integer;   a, sum, mul: real; begin   sum : = 0;   mul : = 1;   readln(n);   for i : = 1 to n do   begin     readln(a);     sum : = sum + a;     mul : = mul * a;   end;   writeln('сумма = ', sum);   writeln('произведение = ', mul) end. 2.var   k, less: integer;   a: real; begin   less : = 0;   readln(k);   readln(a);   while a < > 0 do   begin     if a < k then       inc(less);     readln(a);   end;   writeln(less) end.

Алгоритм оказания первой , что при оказании первой вам ничего не угрожает и вы не подвергаете себя опасности.обеспечить безопасность пострадавшему и окружающим (например, извлечь пострадавшего из горящего автомобиля).проверить наличие у пострадавшего признаков жизни (пульс, дыхание, реакция зрачков на свет) и сознания. для проверки дыхания необходимо запрокинуть голову пострадавшего, наклониться к его рту и носу и попытаться услышать или почувствовать дыхание. для обнаружения пульса необходимо приложить подушечки пальцев к сонной артерии пострадавшего. для оценки сознания необходимо (по возможности) взять пострадавшего за плечи, аккуратно встряхнуть и задать какой-либо вопрос.