Program abc;
var a, b, k: integer;
BEGIN
read (a, b);
for k:=1 to (b-a) do
begin
if (a mod 2) <>0 then
writeln ( a)
else
writeln ('-', a);
a:=a+1
end;
end.
Здесь следует помнить:
1 байт=8 бит, 1 Кбайт=1024 байт
и операции с умножением и делением степеней с одинаковым показателем. Ответ во вложении
Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.