Составить программу, которая проверяла бы, не приводит ли суммирование двух целых чисел А и В к переполнению (т. е. к результату

var a,b: integer;
 
begin
write('A = '); readln(a);
write('B = '); readln(b);
 
if MaxInt - a < b then
 writeln('Perepolnenie!')
else
 writeln('A + B = ',a+b);
readln; end.