Снежная королева задала каю новое . он должен каждый день выкладывать перед входом в замок прямую дорожку из белых и голубых льдинок. дорожка всегда должна иметь одну и ту же длину 10, и рисунок в каждый следующий день должен отличаться от рисунков в предыдущие дни. кроме того, королеве не нравится, когда подряд идут две белые льдинки. в тот день, когда кай не сможет больше выложить ни одной новой дорожки, он будет свободен и сможет отправиться домой. сколько дней ему предстоит трудиться? комментарий. если бы дорожка имела длину 2, то кай трудился бы всего три дня.

Допустим утверждение Коли верно, тогда Ваня ошибся ( ведь победила Марина),  утверждение Леши также ошибочно (Марина заняла первое место) но это противоречит условию так как  (двое из друзей не ошиблись, ошибся только один)
Тогда пускай утверждение Вани верно, значит победителем стала Алина, значит утверждение Коли ошибочно, утверждение Леши так же верно, так как он не сказал что Лена займет первое место, он просто сказал что она умнее всех.
Если Леша был прав, то тогда неправ был Коля, на правильность утверждения Вани это никак не влияет.
Получается правы Леша и Ваня, а  первое место заняла Алина.

// Составить программу, которая выводит на экран таблицу деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой).  

var x: real;
     i: word;
begin
   writeln('Таблица деления числа 11 на целые от 1 до 10(с 2мя знаками после запятой)');
   for i:=1 to 10 do   begin
        x:=11/(i);
        writeln('11/',i,' =',x:0:2);
    end;
end.    

// Со<span class="_wysihtml5-temp-placeholder"></span>ставить таблицу значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.
var x,y: real;
         i: shortint;  
begin
   writeln('Таблица значений функции y=x^3+2 на отрезке [-5;5] с шагом 1.');   
   for i:=(-5) to 5 do
      begin
         y:=i*i*i+2;
         writeln('При х=',i,' y=',y);
    end; 
end.