я готовлюсь к экзамену по информатике, нужно решить логическую задачу.
«Три школьника, Миша (М), Коля (К) и Сергей (С), остававшиеся в классе на перемене, были вызваны к директору по поводу разбитого в это время окна в кабинете. На вопрос директора о том, кто это сделал, мальчики ответили следующее:
Миша: «Я не бил окно, и Коля тоже…»
Коля: «Миша не разбивал окно, это Сергей разбил футбольным мячом!»
Сергей: «Я не делал этого, стекло разбил Миша».
Стало известно, что один из ребят сказал чистую правду, второй в одной части заявления соврал, а другое его высказывание истинно, а третий оба факта исказил. Зная это, директор смог докопаться до истины. Кто разбил стекло в классе?»
я думаю так:

1 допустим, Миша говорит всю правду, тогда Коля и Сергей полностью все соврали.( хотя про то что стекло было разбито мячом мы ничего не знаем, и по этому Коля мог соврать во второй части заявления. И получается, что стекло разбил Сергей)
2 допустим Коля говорит всю правду, тогда Миша тоже говорит правду, а Сергей все врет.
3 допустим, Сергей говорит правду, тогда Коля полностью все соврал, а Миша соврал только во второй части заявления. Следовательно стекло разбил Коля.
получается что стекло разбили Коля и Сергей, а должен быть один чибрик!


и еще пожалуйста помогите с задачей кто в ПасРусе шарит

Решите задачу в среде программирования ПасРус.
Среди 10 целых случайных чисел в диапазоне от -10 до 10, вывести на экран числа в пять столбиков и сообщение о положительных числах.

я сделала только сам массимв , а в пять столбиков и сообщение о положительных числах не до тукиваю как.

Program программа1;
var a: array[1..10] of integer;
i: integer;
Begin
writeln ('на экране выведенны случайные числа от -10 до 10');
for i:=1 to 10 do
begin
a[i]:=random(20)-10;
writeln(a[i])
end;
???
end.