Впаскаль авс: найти плотность тела, если известны масса и объём

Var m,v:integer;
Begin
write('m='); readln(m);
write('V='); readln(v);
writeln('P=',m/v);
End.

Program Plotnost;
var a,b,c : real;
begin
writeln('Введите значение массы и объёма соответственно и через пробел');
reagln(a,b);
c:=a/b;
writeln('p=' , c);
end.