Potvrda da li je zadatak uradjen dobro?

[ averoes @ 13.11.2004. 15:50 ] @

"Napisite program koji ce od korisnika zahtevati da upise temperaturu u stepenima Farenhajta i prikazati ekvivalentnu temperaturu u stepenima Celzijusa. Formula za pretvaranje je Celzijus= (Farenhjt -32) * (5/9)."
Zadatak je uradjen ovako:

Code:

var
  Celzijus, Farenhajt : real;

begin
  Write ('Upisite temperaturu u Farenhajtima:');
  ReadLn (Farenhajt);
  Celzijus := (Farenhajt-32) * (5/9);
  WriteLn ('Celzijus iznosi:', Celzijus:5:2);
  ReadLn
end.

Rezultat se dobijaju ali nisam siguran da li je ovo u redu?
Da li treba da se deklarise "const"?
Unapred hvala!