var
celsius, fahrenheit : Double;
begin // Определение значения цельсия celsius := 21.0; //
Хороший теплый день // Конвертация в фаренгейт
fahrenheit := CelsiusToFahrenheit(celsius); // Показ обоих значений
ShowMessageFmt('%f C = %f F',[celsius, fahrenheit]);
end;