program kkk; uses crt; var k,x,y:integer; BEGIN clrscr; writeln(' Ââåäèòå k'); readln(k); k:=k-2; x:=10; while k>0 do begin x:=x+1; k:=k-2; end; writeln('x=',x); readln; END.