Я не понимаю что вы написали
16 букв можно закодировать 4-мя битами, т.к. 2^4=16
2^40бит=2^40/2^33ГБайт=2^7Гбайт=128Гбайт
Program vetvlenie;
var a,b,c,d:integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a*b;
if c<0 then d:=c*(-2)
else
d:=c*3;
writeln(d);
end.