Составьте программу вычисления потенциальной энергии тела на языке паскаль

program a1;
const g=10;
var m,h,e:integer;
begin
write ('m=');
read (m);
write ('h=');
read (h);
e:=m*g*h;
writeln ('E=',e,' J')
end.