Почему если подставить числа 8 и 5 - все получается. А если подставить 800 и 50 - результат не правильный!

Program t01;
Var A, B, Proizved : integer;
Begin
Write('Write a');
readln(a);
Write('Write b');
Readln(b);
Proizved:=A*B;
writeln(proizved);
readln;
End.