Presentation error чё за фигня ? Всё выдаёт правильно)) (FPC) Добавлено спустя 2 минуты 13 секунд: var l1,l2,l3:integer; res1,res2,res3:word; begin readln(l1,l2,l3); if (l1<=10000) and (l2<=10000) and (l3<=10000) then begin if (l1 if (l2 if (l3 if (res1=1) and (res2=1) and (res3=1) then writeln('yes') else writeln('no'); end; end.