program z1;
var s,s1:string;
i:integer;
begin
readln (s);
s1:=s;
for i:=1 to length (s1) do
if s1[i]='а' then
delete(s1,i,1);
s1:='а'+s1
end;
writeln(s1);
end.
Объяснение:
Программа переставляет только русские строчные а.
program z1;
var s,s1:string;
i:integer;
begin
readln (s);
s1:=s;
for i:=1 to length (s1) do
if s1[i]='а' then
begin
delete(s1,i,1);
s1:='а'+s1
end;
writeln(s1);
end.
Объяснение:
Программа переставляет только русские строчные а.