1.Составить программу, которая переводит биты в кбайты.

var x:integer;y:real;beginwrite ('x= ');readln (x);y:=(2*x-4)/2;write('y= ', y:6:2);end.