<span>Оно?
var
x, y: integer;
begin
write ('x = ');
readln (x);
if x > 0 then
y := x - 2
else
if x = 0 then
y := 0
else
y := abs (x);
writeln ('y = ', y);
readln
end.</span>
16 = 2⁴, поэтому один символ алфавита весит 4 бита.
64 × 4 = 256 бит = 32 байта
Word - Абзац - Отступы и интервалы - Интервал