SRL Archive - Other Scripts

program YourNumber;
var
 Final :Integer;
const
  YB = 1962; //Year you were born.
  MB = 6;    //Jan=1, Feburary=2, March=3...Dec=12.
  DB = 15;   //Day born like the 11th, 18th, ect.
//////////////////////////////////////////////////
begin
  Final :=(YB*YB)/((MB*MB)*(DB*DB*DB))
  Cleardebug;
  writeln(' Your Number is: ' +IntToStr (Final))
end.

I gives you you "Number"!:p(The date is just made up)


Another one i made.:p

Program Haha;
var
Haha :integer;
begin
  Haha :=11*11*11+6 
  writeln(' Also did you know that 11*11*11+6=' +IntToStr (Haha))
end.

Run that!