Составти програму опредилению веса тела, если известна его масса.

Var
P,m:real;
begin
write('Введите массу=');read(m);
P:=(m*9.8);
writeln('Вес тела=',P);
end.