Ответ:

Если не ошибаюсь то так

1)

{$CODEPAGE UTF8}

program RectangleArea;

var sideA, sideB, area: integer;

begin

   write('Длина: ');

   readln(sideA);

   write('Ширина: ');

   readln(sideB);

   area := sideA * sideB;

   writeln('Площадь прямоугольника: ', area);

   readln;

end.

2)

{$CODEPAGE UTF8}

program RectanglePerimeter;

var sideA, sideB, perimeter: integer;

begin

   write('Длина: ');

   readln(sideA);

   write('Ширина: ');

   readln(sideB);

   perimeter := (sideA + sideB) * 2;

   writeln('Периметр прямоугольника: ', perimeter);

   readln;

end.

Объяснение:

Второе не знаю, но надеюсь чем то помогла