program map(output);
(* Map range *)
var
i: integer;
function maprange(a1, a2, b1, b2: real; s: real): real;
begin
maprange := (s - a1) * (b2 - b1) / (a2 - a1) + b1;
end;
for i := 0 to 10 do
writeln(i: 2, ' maps to: ', maprange(0.0, 10.0, -1.0, 0.0, i): 10);
end.