Найдите сумму двух целых чисел числа вводится с клавиатуры не превышает 10 в 9 степени

Var
A,B:real;
Begin
WriteLn('Введи два числа');
ReadLn(A,B);
Write(A,'+',B,' = ',A+B)
End.