// 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)