вот такая вот таблица истинности и схема
64это 2 в 6 степени. получается 1 символ = 6 бит. 10*32*64=20480 символов 20480*6=122880бит=15360байт=15кбайт
Var a,b,c,d,S:integer;
begin
readln(d);
S:=0;
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
writeln(S);
end.