Mph to Mps - this is what I have so far

Posted by MIKE on March 13, 2003

program task2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  MilesToMetres = 1606.344;
var
  Speed : integer  ;
  mph, // miles per hour ;
  mps : real ; // metres per second ;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write ( 'Key in Speed : ') ;
  readln (speed, mph);
  writeln (' This speed in mps is', speed, mps  );
  readln;
end.