F=pgv написать программу, где p - плотность, g - ускорение свободного падения g: =10, v-объем.

Const g=10; 
var f,p,v:real; 
begin 
writeln('Введите объем и плотность'); 
read(p,v); 
f:=p*g*v; 
writeln('Сила Архимеда F=',f); 
end.