Найти все равновеликие прямоугольники, стороны которых выражены целыми числами - Pascal ABC

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

Найти все равновеликие прямоугольники, стороны которых выражены целыми числами a и b, а площадь равна S (a и b принадлежат интервалу от 1 до 20, а S вводится с клавиатуры). Так же представить это на языке С#

Решение задачи: «Найти все равновеликие прямоугольники, стороны которых выражены целыми числами»

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

program z1640023;
 var a,s:integer;
begin
 writeln('Введите s=');
 readln(s);
 for a:=1 to 20 do
  if s mod a=0
   then writeln('a=',a,' b=',s div a);
end.

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

Этот код написан на языке Pascal ABC и выполняет следующую задачу: находит все равновеликие прямоугольники, стороны которых выражены целыми числами. Код начинается с объявления двух переменных: a и s, которые оба инициализируются целочисленными значениями. Затем происходит чтение значения переменной s с помощью функции readln. Далее идет цикл for, который выполняется 20 раз. Внутри цикла проверяется условие: если s делится на a без остатка, то выводится значение a и значение s, деленное на a. Таким образом, код выводит все возможные комбинации сторон равновеликих прямоугольников, где s - это ширина прямоугольника, а a - это длина стороны прямоугольника.