Var P,S,t,g:real;begin write(введите массу стола ); read(t); S:=100; g:=10; P:=(g*t)/S;write(давление на пол, создаваеммое столом равно ,P);end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.