Program Konversi suhu (function)

Ini adalah program konversi suhu biasa , tapi di modif biar bisa menggunakan function
lihat di bawah :
__________________________________________________________________________________

program konversi_suhu;
uses crt;
var
x : integer;
function konversi(suhu : integer):integer;
  var
  hasil: real;
  begin
       write('masukan besarnya suhu dalam celcius = ');readln(suhu);
       hasil:=(9/5)*suhu+32;
       write('Konversi suhu dalam fahranheit : ',hasil:2:0,' Fahranheit');
  end;
begin
   clrscr;
   textcolor(green);
   writeln;
   writeln('            --PROGRAMS KONVERSI SUHU--');
   writeln('++++++++++++++++++++++++++++++++++++++++++++++++++++');
   writeln;
   konversi(x);
readln;
end.

----------------------------------------------------------------------------------------------------------------------
Anda bisa mengambil dalam bentuk:
PAS : download
EXE: download