Напиши свое ФИО, подсчитай количество букв + 2 пробела = сумма * 16 бит (или на 2 байта) результат готов!
Program qqq;
var n, s, x1, z1, i, del: integer;
begin
writeln ('vvedi 5-znachnoe chislo < 32768');
{ограничение типа integer}
readln (n);
del:=10000;
for i:=1 to 5 do
begin
z1:= n mod del;
x1:= n div del;
s:=s+x1;
n:=z1;
del:=del div 10;
end;
writeln ('summa cifr=', s);
readln;
end.
35 минут=2100 секунд
40 Мбайт=40*2^23 бит =5*2^26 бит
--------------------
t1=5*2^26 : 2^18 = 5*2^8=5*256=1280 c (из Б в В)
t2=5*2^26 : 2^19 = 5*2^7=5*128=640 c (из А в Б)
1280+640=1920<2100
t=2100-1920=180c