Курсовая работа: Создание программы-переводчика текстов с английского на русский язык

begin

n:=Length(st3);

if st3 [n]='^' then

begin

st2:=st2+st3 [n];

Delete (st3, n, 1);

st3:=st3+st1 [i];

end

else

if (n=0) or (st3 [n]='(') or (st3 [n]='+') or (st3 [n]='-')

or (st3 [n]='*') or (st3 [n]='/') then

st3:=st3+st1 [i];

end

else

if (st1 [i]='*') or (st1 [i]='/') then

begin

n:=Length(st3);

if st3 [n]='^' then

begin

st2:=st2+st3 [n];

Delete (st3, n, 1);

Goto 1;

Goto 1;

end;

if (st3 [n]='*') or (st3 [n]='/') then

begin

st2:=st2+st3 [n];

Delete (st3, n, 1);

st3:=st3+st1 [i];