program Parascope;
{To illustrate driver - R. Rosebrugh, October 16, 1995}

var I, J, modulus: Integer;

procedure Heading( Width : Integer );

var Column : Integer;

begin{Heading}
  WriteLn('Parascope on ', Width :3);
  Writeln;
  Write('   *');
  for Column := 0 to Width-1 do
    Write( Column : 4);
  Writeln;
end;{Heading}

begin{main}
  WriteLn('Enter the modulus (positive integer)');
  ReadLn(modulus);
  Heading( modulus );
end.{main}