РеИна написал(а):
4 Составьте алгоритм (программу), которая удваивает каждую букву в тексте (например, при такой замене со слова «баба» должна выйти «ббааббаа»).
И вот так!
Program dva;
var s:string;
i:longint;
begin
readln(s);
for i:=1 to length(s) do if not (s[i] in [' ',',','.',';','?','!']) then write(s[i],s[i]) else write(s[i]);
end.
*поймала за хвост*
*подергала за уши сколько-надо-раз*
Или мы 1 идем с велосипедом? По Москве? 
