Долговременная и оперативная это тоже самое!
const
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.<span>
</span>
1 КБит = 128 Байт
5 КБит = 640 Байт
А)
1-b:=a(b:=5.8)
2-a:=b(a:=5.8)
а:=5.8 b:=5.8
б)
1-b:=a(b:=0)
2-a:=b(a:=0)
а:=0 b:=0