program q;<br />
uses crt;<br />
var k,n,m:integer;<br />

begin<br />
writeln('ввести число k');<br />
readln(k);<br />

n:=10;<br />

k:=k div 2 -1;<br />
n:=10+k;<br />
m:=n mod 10;<br />
writeln('m=',m);<br />
readln;<br />



end.<br />