I NEED SOMTHIN MORE SIMPLER

Posted by Mike on March 15, 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 : ', mph) ;
readln (speed, mph);
writeln (' This speed in mps is', speed, mps );
readln;

Can you please help me without changing any of the commands I just starting to learn it so I need to keep it simple thanx