PascalABC легко решить
Необходимо найти длины сторон всех прямоугольников, площадь которых равна заданному натуральному числу S. Стороны должны быть выражены натуральными числами. При этом решения, которые получаются перестановкой размеров сторон, считаются разными.

Спасибо тебе огромное! Ты меня очень выручил.

всегда пожалуйста

// Необходимо найти длины сторон всех прямоугольников, // площадь которых равна заданному натуральному числу S. // Стороны должны быть выражены натуральными числами. // При этом решения, которые получаются перестановкой размеров сторон, считаются разными.var S,i  : word;Begin  writeln ('Введите площадь прямоугольника');  readln (S);  writeln ('Возможные прямоугольники:');  for i:=1 to S do    begin      if (S mod i)=0 then         begin          writeln ('сторона а=',i,' сторона b=',S/i);        end;    end;End.