Var i integer begin for i. Var s, k: integer; begin readln s readln k if s div 2 k then writeln да else writeln нет end.. var i,a,b: integer; begin max:=0.

Var i integer begin for i. Var s, k: integer; begin readln s readln k if s div 2 k then writeln да else writeln нет end.. var i,a,b: integer; begin max:=0.
27 / 72