Мальчик лет 7-9 запускает змея. Змей улетает и мальчик бежит за ним, ветер подул сильнее и змея стало не видно, а мальчик понял что он в совершенно не знакомом ему лесу. Он начинает хныкать и на плачь выходит девочка с оленьими рогами и оленьим хвостиком. Они ни сколечки не боятся друг друга, и девочка обещает вывести мальчика из леса если он поиграет с ней. Они поиграли и подружились, девочка подарила мальчику свой браслет на память, а он подарил ей свой кулон в форме ключика, и она вывела его из леса. Через несколько лет мальчик с родителями приезжают на пикник и он снова теряется в лесу. Пока он рос то решил что девочка олень ему просто приснилась. Он бродил по лесу пока не услышал в кустах шорох, он подошел и увидел ту самую девочку оленя, они узнали друг друга, обменялись новостями и она снова вывела его из леса. Кагда мальчик вырос то стал биологом и поехал в тот лес в экспедицию, на этот рад не девочка, а уже девушка олень вышла к парню. Они долго разговаривали, и она рассказала что хочет увидеть мир за лесом. И парень решил ей, как когда-то она ему. Он отвез ее в город где она стала моделью из за своей "необычайной" внешности.
Сойдёт (я просто не до конца поняла задание)? В первый раз попробовала себя в роли писателя
Объяснение:
var N, i, a, m:integer;
c:boolean;
begin
writeln('Введите количество участников');
readln(N);
if ((N < 1) or (N >50))then begin
writeln('Ошибка');
exit;
end;
m := 0;
c := false;
for i:=1 to N do begin
writeln('На сколько вопросов правильно ответил ',i,' участник:');
readln(a);
if ((a < 0) or (a > 20)) then begin
writeln('Ошибка');
exit;
end;
if (a = 0) then
c := true;
if (a > m) then
m:= a;
end;
writeln('Количество вопросов, на которые ответил победитель правильно: ', m);
if (c = false) then
writeln('Есть ли участники, которые не ответили ни на один вопрос правильно: NO')
else write('Есть ли участники, которые не ответили ни на один вопрос правильно: YES');
end.
