Алик, раиф, валя и эльдар соревновались в беге. на вопрос, кто какое место занял, каждый дал ответ. алик: "не первое и не последнее". раиф: "последним был алик"валя: "первое". эльдар: "последнее".известно, что трое сказали правду, а один солгал. кто занял первое место? кто солгал? как вы это узнали?

Имена пишу сокращённо: р сказал: последнее место занял а э сказал: последнее место занял э значит, один из них солгал  - не могли оба занять последнее место. значит, а сказал правду, и его место не последнее. значит, солгал р, сказав что у а последнее место. ответ: солгал раиф

Write('введите строку'); read(s1); gl: =0; sogl: =0;   m: =length(s1); while m< > 0 dobegins2: =copy(s1,1,(pos(' ',s1)-1)); delete(s1,1,pos(' ',s1)); for i: =1 to length(s2) dobeginif s2[i] in m2 then gl: =gl+1; if s2[i] in m1 then sogl: =sogl+1; end; if gl> sogl then s3: =s3+s2+' '; gl: =0; sogl: =0; m: =length(s1); end; writeln(s3); end.после проверки слова перемен нужно обнулить для нового подсчетаопределение длины строки нужно поместить в цикл, это для отределения после уменьшения и выхода из цикла

Var m: array[0..1000] of longint; n,i: longint; procedure tf;   var q,j: longint;   o: array[1..10] of longint;   begin    write(m[1],' ');     q: =1;     o[q]: =m[1];   i: =1;     while q< > 3 do      begin      i: =i+1;           if q=1 then     if m[i]< > o[1] then       begin     write(m[i],' ');     q: =q+1;       o[q]: =m[i];       end;         if q=2 then       if (m[i]< > o[1]) and (m[i]< > o[2]) then         begin         write(m[i]);         q: =q+1;         end;     end; end; procedure tm; var mk: array[1..10] of longint;   begin   for i: =1 to 3 do  mk[i]: =0; for i: =1 to n do   if mk[1]< m[i] then      begin      mk[3]: =mk[2];       mk[2]: =mk[1];       mk[1]: =m[i];       end else   if (mk[2]< m[i]) and (m[i]< > mk[1]) then      begin    mk[3]: =mk[2];       mk[2]: =m[i];       end else   if (mk[3]< m[i]) and (mk[2]< > m[i]) then mk[3]: =m[i]; write(mk[1],' ',mk[2],' ',mk[3]);   end; скорее всего это можно было написать чище и оптимальнее, но вот моё решение на скорую руку