Человек массой m кг спускается по лестнице длиной 10 м, расположенной под углом [tex] \alpha [/tex]
к горизонтальной площади. Найдите работу силы тяжести на каждом метре спуска.(A=mgh*sin [tex] \alpha [/tex])

напишите программу 

var m, h, alfa:integer;g, a:real;beginh:=10;g:=9.8;write('Введите массу ');readln(m);write('Введите угол ');readln(alfa);a:=m*g*h*sin(alfa); // В радианахwrite(a);end.