program exm_1;
uses crt;
var
x1,x2,x: string;
i: integer;
begin
clrscr;
write ('x:=');
readln(x1);
x2:='';
  x2:=x2+x[i];
for i:=1 to length (x1) do
if x1[i]='а'  then x2:=x2+'ая'
else x2[i]:=x2+x1[i];
write( x2);
end.