Паскаль.создайте программу для вычисления давления на пол,создаваемое столом массой т,если суммарная площадь опоры его ножек равна 100 см² p=gm/s

Var P,S,t,g:real;begin write('введите массу стола '); read(t); S:=100; g:=10; P:=(g*t)/S;write('давление на пол, создаваеммое столом равно ',P);end.