Составь программу перевода градусов в интервале от 15 до 30 шкалы цельсия на градусы фаренгейта формула: f=c*1,8+32

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  15.To(30).Tabulate(x->x*1.8+32).Println(NewLine)
end.

Результат
(15,59)
(16,60.8)
(17,62.6)
(18,64.4)
(19,66.2)
(20,68)
(21,69.8)
(22,71.6)
(23,73.4)
(24,75.2)
(25,77)
(26,78.8)
(27,80.6)
(28,82.4)
(29,84.2)
(30,86)