create or replace function f2c               -- definiere eine Funktion f2c
  (fahrenheit IN number)                     -- Eingangsparameter vom Typ number
  return number                              -- Ausgangsparameter vom Typ number
is
  celsius number;                            -- lokale Variable
  begin                                      -- Beginn des Funktionsrumpfes
    celsius := (5.0/9.0)*(fahrenheit-32);    -- Umrechnung nach Celsius
    return celsius;                          -- Rueckgabe des Funktionswertes
  end f2c;                                   -- Ende der Funktion
