Курсовая работа2 / Examples / stack

program ProgStack;
	var s: stack;
		s2:stack;
begin
	push(s, 'a');
	writeln;
	write(top(s));

	push(s, 's');
	writeln;
	write(top(s));

	push(s, 'd');
	writeln;
	write(top(s));

	s2 := s;

	pop(s2);
	writeln;
	write(top(s2));

	pop(s2);
	writeln;
	write(top(s2));
end.