Еще Евклид указывал, что при равном периметре наибольшую площадь будет иметь квадрат. Если из 23 спичек построить квадрат, то длина его стороны должна равняться 23/4 = 5.75 спички. Но спички ломать нельзя, поэтом принимаем длину стороны равной 5 спичкам и это будет длина одной пары сторон прямоугольника. На вторую пару сторон остается 23 - (5 х 2) = 13 спичек. 13 / 2 = 6.5 и, поскольку спички ломать нельзя, полагаем длину второй пары сторон равной 6 спичкам. Итак, прямоугольник должен быть размером 5х6 спичек и его площадь составит 5 х 6 = 30 (квадратных... спичек).
Вот только задача эта - чисто геометрическая и к информатике не имеет никакого отношения.
var
i, e : Integer;
begin
e := 1;
for i := 1 to 7 do
e := e * i;
Writeln(e);
end.