Если размер символа увеличился в двое, то общий размер сообщения также стал в двое больше. Значит изначально он занимал 1 МБ. 1024*1024=1048576 символов
Документ Word 2007 - в прилагаемом файле
Можно во так
Россия
Москва,Санкт-Петербург,Новосибирск
И потом от каждого города 2 пригорода(в Интранете найди)
Var s : string;
i, k : integer;
begin
Readln(s);
k:=0;
for I := 1 to Length(s) div 2 do
if s[i]= s[Length(s)-k] then k:=k+1;
if k= Length(s) div 2 then Write('Полиндром') else Write('Не полиндром'); Readln
end.