program prim1;
Var
s: string;
j, k: integer;
begin
writeln ('Введите строку символов');
readln (s);
k:=0;
for j=1 to length(s) do
if s[j]='а' then s[j]:='о' ;
writeln ('Результат: ', s);
end.
program prim1;
Var
s: string;
j, k: integer;
begin
writeln ('Введите строку символов');
readln (s);
k:=0;
for j=1 to length(s) do
if s[j]='а' then s[j]:='о' ;
writeln ('Результат: ', s);
end.