program RemoveA;
var
word, newWord: string;
i: Integer;
begin
Write('Enter a word: ');
Readln(word);

newWord := '';

for i := 1 to Length(word) do
begin
if word[i] <> 'A' then
newWord := newWord + word[i];
end;

WriteLn('Word without letter A: ', newWord);
end.