{█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
{█                                                       █}
{█      Virtual Pascal Examples. Version 1.10            █}
{█      MathPak example                                  █}
{█      ─────────────────────────────────────────────────█}
{█      Copyright (C) 1995-96 fPrint UK Ltd              █}
{█                                                       █}
{▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}

program Demo;

Uses
  MP87LITE;

{$PMTYPE VIO}
{$IFDEF VPDEMO}
  {&Dynamic VP11Demo.Lib}
{$ENDIF}

Var
  x : Array [1..2000] of Double;
  Sum, Mean, SDev : Double;
begin
  WriteLn('VP/2 MathPak87 Demo    Version 1.10 Copyright (C) 1995-96 fPrint UK Ltd');
  Writeln;
  LFillV(x[1],1.0,1.0,2000);
  MeanSDev(x[1],Mean,SDev,2000);
  Sum := SumV(x[1],2000);
  WriteLn('Sum = ',Sum:12,'  Mean = ',Mean:12,'  SDev = ',SDev:12);
end.