 
исп Стековый Калькулятор 
цел nmax; nmax:=100  |максимальное количество чисел в строке 
цел n; n:=0          |фактическое количество чисел в строке 
цел таб s[1:nmax]   |стек; в s[1]-первое число; в s[2]-второе; 
|..., в s[n]-последнее 
 
алг запомнить_1 
дано n < nmax   |(в стеке есть свободное место) 
надо |число 1 добавлено в стек 
нач 
n:=n+1 
s[n]:=1 
кон 
 
|... 
 
алг сложить 
дано n > 1    |(в стеке не меньше двух чисел) 
надо   |вместо двух верхних элементов стека помещена их сумма 
нач цел r 
r:=s[n-1]+s[n] |результат сложения 
n:=n-1         |уменьшение числа элементов в стеке на 1 
s[n]:=r        |замена верхнего элемента стека на результат 
кон 
 
алг вычесть 
дано n > 1    |(в стеке не меньше двух чисел) 
надо |вместо двух верхних элементов стека помещена их разность 
нач цел r 
r:=s[n-1]-s[n] |результат вычитания 
n:=n-1         |уменьшение числа элементов в стеке на 1 
s[n]:=r        |замена верхнего элемента стека на результат 
кон 
 
|... 
 
алг показать 
дано n > 0  |(в стеке есть хотя бы одно число) 
надо  |на экране выведено значение s[n] 
нач 
вывод s[n] 
кон 
кон_исп 
