begin comment bits strings operations 'shl' and 'shr'; bits bt1, bt2; read(bt1); bt2 := bt1 shl 3; write(bt2); bt2 := bt1 shr 1; write(bt2); end.