Оптимальні програми

Var Ex,S:String;

Stek:Array[1..255] Of Char;

N:Integer;

Tab:Array[1..26] Of Id;

Function InputExpression:String;

Var s:String;

i:Integer;

Begin

WriteLn('Скільки змінних буде у виразі ?');

ReadLn(N);

For i:=1 To N Do

Begin

WriteLn('Введіть один символ для позначення змінної номер ',i);

ReadLn(Tab[i].c);

WriteLn('Введіть значення ',Tab[i].c);

ReadLn(Tab[i].v);

End;

WriteLn('Введіь арифметичний вираз у інфіксній формі ');

ReadLn(s);

InputExpression:=s;

End;

Function IsOperation(c:Char):Boolean;

Begin

If c in ['/','*','+','-','^'] Then IsOperation:=True

Else IsOperation:=False;