проверьте праильно ли работает программа вычисления процента от числа Pascal ABC

[программирование]

написать функцию, которая считает процент от числа с точностью до тысячных. Pascal ABC

program pr;

uses crt;

function Procent(n: Real): Real;

begin
Procent := n / 100;
end;

var n: Integer;
begin
ClrScr;
WriteLn('Ââåäèòå ÷èñëî');
ReadLn(n);

WriteLn('Ïðîöåíò îò ÷èñëà ', n, ' ðàâåí ', Procent(n):0:2);
ReadLn;
end.

проверьте, пожалуйста, эта программа правильно написана или нет.