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

да,можно.только одного цвета будет 12,а другого тоже 12 и одна клетка останется. 

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.