program ll1;
var i, n: integer;
s: string;
begin
readln(s);
n:= Length(s);
for i:=1 to n do
if s[i] = 'а' or 'у' or 'е' or 'ы' or 'о' or 'э' or 'я' or 'и' or 'ю' then
s[i]:='@';
write (s);
end.
Так?
