Создать стек из случайных целых чисел и удалить из него записи с четными числами

[scarecrow_1]

Создать стек из случайных целых чисел и удалить из него записи с четными числами

[ZX Spectrum-128]

Использованы процедуры, написанные volvo.

program stack22;

uses
  math;
type
  pstack = ^tstack;
  tstack =
  record
    info : integer;
    next : pstack;
  end;

procedure push(var s : pstack; value : integer);
var p : pstack;
begin
  new(p);
  p^.next := s;
  p^.info := value;
  s := p;
end;

function pop(var s : pstack) : integer;
var p : pstack;
begin
  result := s^.info;
  p := s;
  s := s^.next;
  dispose(p);
end;

procedure print(s : pstack);
begin
  while s <> nil do
  begin
    write(s^.info:4);
    s := s^.next;
  end;
  writeln;
end;

var
  y, x : pstack;
  i, n, value : integer;

begin
  randomize;
  x := nil;  y := nil;
  write('n = '); readln(n);
  for i := 1 to n do
    push(x, randomrange(1,100));
  writeln('First stack:');
  print(x);

  while x <> nil do
  begin
    value := pop(x);
    if value mod 2 <> 0 then
       push(y, value)
  end;

  while y <> nil do
    push(x, pop(y));
  writeln('Second stack:');
  print(x);
  readln;

end.