Программа сравнивает два числа с другим числом  — Pascal(Паскаль)

program b1;

var A,B:longint;
begin write('введите первое число A=');
      readln(a);
      write('введите второе число B=');
      readln(b);
      if A+B>32767 then writeln('переполнение')
                   else writeln('Сумма S=',A+B)
end.