Результаты N измерений показаний трех приборов записаны в 3 строки. Необходимо найти и записать еще в 3 строки порядковые номера тех результатов измерений, которые больше среднего арифметического значения этих измерений для каждого из трех приборов.

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.

проводник - абориген.

потому что если бы он спросил у пришельца, которые всегда лгут, "кто ты? ", то тот солгал, сказав "абориген". и проводник пришел и сказал правду.

а если бы проводник был бы пришельцем, спросив у аборигена "кто ты? ", то абориген   сказал бы правду. но пришелец путешественнику соврал бы, сказав, что тот пришелец.

var i: integer;

begin

  for i: = 35 to 87 do

      if i mod 7 =1 then

          writeln(i);

end.

формула:

2^i

2^2=4 цвета 

т.е. в двоичном коде:

00

01

10

11