Восемь школьников оставались в классе на перемене, и один из них разбил окно. На вопрос директора, кто это сделал, были получены следующие ответы: Егор: «Разбил Степан»!
Зоя : «Ира разбила»!
Оля: «Разбила Зоя».
Миша: «Это кто-то с улицы»!
Надя: «Да, Оля права».
Коля: «Это либо Ира, либо Зоя»!
Степан: «Ни Ира , ни Зоя этого не делали»!
Ира: «Степан не бил»!

Кто разбил окно, если известно, что из этих высказываний истинно ровно три.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

хай                                                                                                                                                                           

var a: integer;

begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.