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

Var p:real;

s, n:integer;

begin

writeln ('Введите количество жителей государства (в чел) ') ;

readln (n) ;

writeln ('Введите площадь государства (в км^2) ') ;

readln (s) ;

p:=n/s;

writeln ('Плотность государства равняется ', p:0:0,' чел/км^2') ;

end.