Решите задачу плизз смотрите ниже

Question

Решите задачу плизз
смотрите ниже

---

Answer 1

Var
    i, l, r: integer;

begin
    readln(l, r);

    for i := l to r do
    begin
        writeln(i, ' inch = ', (2.54 * i):0:2, ' cm');
    end;
end.