var

a, b, c: integer;


begin

cls;
write ( 'Введите первое число: ' );
readln ( a );
write ( 'Введите второе число: ' );
readln ( b );
write ( 'Введите третье число: ' );
readln ( c );
if ( a + b > 0 ) or ( b + c > 0 ) or ( a + c > 0 ) then
writeln ( 'Есть положительная сумма среди введённых пользователем чисел.' )
else
writeln ( 'Положительной суммы нет.' );
readln;
end.

Данная программа на Pascal вводит с клавиатуры три целых числа и проверяет, существует ли среди них пара, сумма которой положительна.

Сначала объявляются три переменные целого типа:

pascal
var
  a, b, c: integer;

Затем программа очищает экран командой cls и последовательно запрашивает три числа:

pascal
write('Введите первое число: ');
readln(a);

Аналогично значения записываются в переменные b и c.

После ввода выполняется условие:

pascal
if (a + b > 0) or (b + c > 0) or (a + c > 0)

Здесь проверяются суммы всех возможных пар:

• сумма первого и второго чисел — a + b;

• сумма второго и третьего чисел — b + c;

• сумма первого и третьего чисел — a + c.

Оператор or означает «или». Поэтому условие считается истинным, если хотя бы одна из трёх сумм больше нуля.

Например, если введены числа:

-5, 2, 4

то:

-5 + 2 = -3
2 + 4 = 6
-5 + 4 = -1

Одна из сумм положительна, поэтому программа выведет:

Есть положительная сумма среди введённых пользователем чисел.

Если введены числа:

-5, -2, 1

то:

-5 + (-2) = -7
-2 + 1 = -1
-5 + 1 = -4

Все суммы неположительные, поэтому будет выведено:

Положительной суммы нет.

Важно, что сумма, равная нулю, положительной не считается. Например, для чисел -2, 2 и -5 сумма -2 + 2 равна нулю, поэтому условие a + b > 0 будет ложным.

Последний оператор:

pascal
readln;

нужен для того, чтобы окно программы не закрылось сразу после вывода результата.

Для полноценной программы в Pascal обычно также указывают заголовок программы и подключают модуль Crt, поскольку команда cls относится к этому модулю:

pascal
program PositiveSum;
uses Crt;
var
  a, b, c: integer;
begin
  ClrScr;
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  write('Введите третье число: ');
  readln(c);
  if (a + b > 0) or (b + c > 0) or (a + c > 0) then
    writeln('Есть положительная сумма среди введённых пользователем чисел.')
  else
    writeln('Положительной суммы нет.');
  readln;
end.

В классическом Pascal команда очистки экрана обычно называется ClrScr, а не cls. Если среда программирования не поддерживает очистку экрана, эту строку можно просто удалить.