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

при правильной игре выйграет тот, кто пойдёт первым и возьмёт все камни из кучки =)

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

Program proga_25_3; var   a: text; s,p : string;   i: integer;   f: boolean; begin    write('введите имя и путь к файлу   ');     read(p);     assign(a, p);     reset(a);     while not eof(a) do      begin          readln(a,s);                     for i: =1 to length(s) div 2 do          if s[i]=s[length(s)-i+1] then              f: =true            else          begin          f: =false;           break;           end;         if f then          writeln (s);       end;       close(a); end.