Var s,t: integer; begin readln(s); readln(t); if (s < 10) or (t > 10) then writeln('да') else writeln('нет') end.. Var s, k: integer; begin readln s readln k if s div 2 k then writeln да else writeln нет end.. Var s, t: integer; begin readln(s); readln(t); if (s < 5) or (t > 5) then writeln('Yes') else writeln('no') end..
