Помогите решить задачу Получить таблицу температур по Цельсию от 1 до 100 градусо?? и их эквивалент по шкале Фаренгейта, используя для перевода формулу t=9/5*t(цельсий)+32; нужно решить задачу с repeat

Var a: array[1..100] of real;   n: integer;begin   n := 1;   repeat      a[n] := 9 / 5 * n + 32;      n := n + 1;   until n = 100;   {   n := 1;   repeat       writeln(n, , a[n]:5:1);       n := n + 1;   until n = 100;   }end.