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 чел/км