// Необходимо найти длины сторон всех прямоугольников,
// площадь которых равна заданному натуральному числу 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.