24 lines
326 B
Plaintext
24 lines
326 B
Plaintext
program MemTest;
|
|
|
|
uses Crt;
|
|
|
|
var i: longint;
|
|
|
|
procedure FillMem(x: longint);
|
|
begin
|
|
WriteLn('FillMem [',x,'] <-');
|
|
if x<1982 then FillMem(x+1);
|
|
WriteLn('FillMem [',x,'] ->');
|
|
end;
|
|
|
|
begin
|
|
ClrScr;
|
|
{ i := 0;
|
|
repeat
|
|
Inc(i);
|
|
FillMem(i);
|
|
until keypressed;
|
|
ReadKey; }
|
|
FillMem(1);
|
|
end.
|