Извините не подскажите что здесь не правильно ?

program pr13;

uses crt;

var a,b,m,n: real;

begin

clrscr;

write('a=');

read(a);

write('b=');

read(b);

write('m=');

read(m);

write('n=');

read(n);

n:=a*b/m;

write('n');

readkey;

end.