Оптимальні програми обчислення виразів

Begin

Number:=S[Top];

Dec(Top);

End;

Function IsEmpty:Boolean;

Begin

If Top=0 Then IsEmpty:=True Else IsEmpty:=False;

End;

Begin

Top:=0;

End.

Текст програми:

Uses Crt, Stack;

Type Id=Record

c:Char;

v:Real;

End;

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);