Запиши верный ответ (без пробелов).

Write ('h = ', h);

Для h=25 на экране будет

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

253(8)=10101011(2)

2в4(16)=1010110100(2)

48(16)=1001000(2)