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.