Программа производит неверные вычисления - Pascal

r ,по идее , должно быть равно 1000000, но почему то получается 16960 !!! если написать так: r:=100*100*100 то всё нормально В чём прикол???

var
x1,x2,x3:integer;
r:real;
Begin
       x1:=100;
       x2:=100;
       x3:=100;
       r:=x1*x2*x3;
       writeln(r:0:0);
end.

Листинг программы

var
x1,x2,x3:longint;
r:real;

Объяснение кода листинга программы

Объявляются три переменные типа longint с названиями x1, x2, x3.
Объявляется переменная типа real с названием r.
Задаются значения переменным x1, x2, x3.
Производятся вычисления с переменными x1, x2, x3 и результатом присваивается значение переменной r.
Выводятся на экран значения переменных x1, x2, x3 и r.