program pascal menghitung berat

program brt;
uses crt;
var
berat,m,b:integer;
begin
writeln('menghiung masa ');
write('masukan percepatan gravitasi benda:');readln(m);
write('masukan masa:');readln(b);
berat:=m*b;
writeln ('jadi beratnya adalah:',berat);
readln;
end.