Плотность палаток на "диком" пляже составляет 500 шт на 1 км2. Как узнать сколько возможно разместить таких палаток на пляже площадью N км2 ?

если N-любое число,то 500N

Program plotnost;

Var a,b,c:integer;

Begin

Writeln('введите площадь пляжа');

Readln(b);

a:=500;

c:=a*b;

Writeln('плотность равна',c);

End.