I=2байта
символов всего 55 если конечно в конце предложения нет точки.
тогда: кол-во символов умнажаем на 2(байта)=55×2=110байт, а если вконце ещё стоит точка то кол-во символов 56 и мы делаем по такому же принцепу 56×2=112 вот и всё.
Var a,i:integer;
begin
for i:=1 to 50 do
if i mod 2 = 0 then
a:=a+i;
writeln(a);
end.