По заданным числа x и y найти все пары чисел a и b - PascalABC.NET

Формулировка задачи:

1. Были загаданы два целых числа: a и b. Вам сообщили их сумму и произведение (но не сообщили, что есть что). Например, если известно, что сумма и произведение двух чисел равны 5 и 6, то возможны два варианта: числа 1 и 5 (сумма 6, произведение 5), или числа 2 и 3 (сумма 5, произведение 6). Требуется написать программу, которая по заданным числа x и y найдет все пары чисел a и b, такие что сумма чисел равна x, а произведение – y, либо наоборот: сумма равна y, а произведение – x.

Решение задачи: «По заданным числа x и y найти все пары чисел a и b»

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

 For b:=a + 1 to 100 do

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

Импортируется пространство имен System
Задаются переменные a и b типа int
В цикле for перебираются все значения b от a + 1 до 100
Внутри цикла проверяется условие b % 2 = 0, если оно истинно, то выводится сообщение Кортеж (a, b) является четным
Если условие ложно, то выводится сообщение Кортеж (a, b) не является четным