Согласно бюллетеню Центробанка 100$ эквивалентны Т руб. Вычислить эквивалент 2,3,4…,N руб. в долларах — Pascal(Паскаль)

program Project2;

const
  USD = 100; // Trub

var
  T: real; // эквивалент рублей
  i, N: integer;

function f(i: integer; T: real): real; // функция расчета руб в $
begin
  f := i * (100 / T);
end;

begin
  write('Введите эквивалент (в руб) 100$ = ');
  readln(T);
  Write('Сколько рублей считать? N = ');
  readln(N);
  if N > 0 then
  begin
    for i := 1 to N do
    begin
      Writeln(i, ' руб = ', f(i, T):4:2, '$'); // вывод результатов
    end;
  end
  else
    Writeln('Ошибочка');
  readln;

end.