ИНФ.9КЛ.ЦИКЛЗадание:Составить программу вывода таблицы перевода температур из градусов по шкале Цельсия в градусы по шкале Фаренгейта(F) для значений от 15 градусов C до 25 градусов с шагом 1 по Цельсию (F=1,8*C+32).Образ:по Цельсиюпо Фаренгейту15591668..........2377

program task;
var
  F: string;
begin
  writeln('/-------------|-------------');
  writeln('| По Цельсию  |По Фаренгейту|');
  writeln('|-------------|-------------|');
  for var i := 15 to 25 do begin
    str(1.8 * i + 32, F);
    writeln('|      ', i, '     |      ', F, '|':(8 - length(F)))
  end;
  writeln('-------------|-------------/');
end.