Как спрогромировать програму в паскале такую : Чтобы она из фунтов переводила в килограммы!?

Program funt;Var m, f:real;beginwriteln('Введите количество фунтов');readln(f);m:=f*453;writeln('Ответ:',m);end.