помогите решить задачу
Получить таблицу температур по Цельсию от 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.