Известно количество жителей в государстве и площадь территории определите плотность населения вгосударстве

Var n:integer; s,p:real;
begin
write('n (чел.) = ');
readln(n);
write('s (кв.км) = ');
readln(s);
p:=n/s;
writeln('Плотность населения = ',p:5:2,' чел/км');
end.

Пример (Россия):
n (чел.) = 146800000
s (кв.км) = 17075400
Плотность населения =  8.60 чел/км