program DoubleLetters;

var
word, doubledWord: string;
i: integer;

begin
write('Enter a word: ');
readln(word);

doubledWord := '';

for i := 1 to length(word) do
begin
if (word[i] = 'a') or (word[i] = 'A') then
doubledWord := doubledWord + 'aa'
else if (word[i] = 'b') or (word[i] = 'B') then
doubledWord := doubledWord + 'bb'
else
doubledWord := doubledWord + word[i];
end;

writeln('Word with doubled "a" and "b": ', doubledWord);
end.