Делать в Паскале. Даны стороны прямоугольника. Найти его площадь и периметр

Предыдущий
вопрос Следующий
вопрос

program Rectangle;

var
side1, side2, area, perimeter: real;

begin
writeln('Enter the length of the first side of the rectangle: ');
readln(side1);

writeln('Enter the length of the second side of the rectangle: ');
readln(side2);

area := side1 side2;
perimeter := 2 (side1 + side2);

writeln('The area of the rectangle is: ', area:0:2);
writeln('The perimeter of the rectangle is: ', perimeter:0:2);

end.