RosettaCodeData/Task/Map-range/PascalABC.NET/map-range.pas

##
function maprange(a, b: (real, real); s: real) := b[0] + (s - a[0]) * (b[1] - b[0]) / (a[1] - a[0]);

for var i := 0 to 10 do
  Writeln(i, ' maps to ', maprange((0, 10), (-1, 0), i));