Плотность палаток на "диком" пляже составляет 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.