всем привет у мя така проблема, надо штоп прога вычисляла число, задуманное человеко, а в инкее и в диве пишет ошыпку, помагите, кто чем может!!

program h;
uses crt;
var a : integer;
b : real;
begin
clrscr;
writeln('Sei4as ya otgadaiy zadumannoe');
write('Vami 4etnoe 4islo');
writeln('Zadumali?');
readln;
while (inkey() <> '') do begin
writeln('Umnojte ego na 3');
readln;
writeln('Polu4ennoe proizvedenie');
write('razdelite na 3');
readln;
writeln('4astnoe umnojte na 3');
readln;
end;
writeln('Skolko poly4ilos?');
readln(a);
clrscr;
b:=div(a,9)*2;
writeln(b);
readln
end.