program Square;
uses crt;
var P, m:real;
const S=100;
	g=9.8;
begin
	clrscr;
        writeln('Enter massy stola');
        readln(m);
	P:=(g*m)/S;
	writeln('P=', P);
	readln;
end.