procedure calc1;
begin
  v := u + (a * t);
  if u > 0 then
    s := u * t + (a * tsq) / 2
  else
    s := (a * tsq) / 2;
end;

procedure calc2;
begin
  vsq := usq + (2 * a * s);
  v := sqrt(vsq);
  t := (v - u) / a;
end;

procedure calc3;
begin
  v := 2 * s / t - u;
  a := (v - u) / t;
end;

procedure calc4;
begin
  u := v - a * t;
  s := (u + v) / 2 * t;
end;

procedure calc5;
begin
  usq := vsq - (2 * a * s);
  u := sqrt(usq);
  t := (2 * s) / (u + v);
end;

procedure calc6;
begin
  u := 2 * s / t - v;
  a := (v - u) / t;
end;

procedure calc7;
begin
  u := (s / t) - (a * t / 2);
  v := 2 * s / t - u;
end;

procedure calc8;
begin
  a := (v - u) / t;
  s := (u + v) / 2 * t;
end;

procedure calc9;
begin
  if ((v - u) > 0) or ((v - u) < 0) then
    a := (vsq - usq) / s / 2
  else
    a := 0;
  t := (2 * s) / (u + v);
end;

procedure calc10;
begin
  s := (vsq - usq) / a / 2;
  t := (v - u) / a;
end;

procedure calc11;
begin
  showmessage('Insufficient Data');
end;