помогите пожалуйста, Паскаль.Создайте программу для вычисления давления на пол,создаваемое столом массой т,если суммарная площадь опоры его ножек равна 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.