Даны 2 стороны прямоугольника a и b. Вычислить площадь и периметр прямоугольника

Question

Даны 2 стороны прямоугольника a и b.
Вычислить площадь и периметр прямоугольника

Answer 1

Program p1;
var a, b: real;
begin
    WriteLn('Введите сторону a');
    ReadLn(a);
    WriteLn('Введите сторону b');
    ReadLn(b);
    WriteLn('Площадь равна: ', a*b);
    WriteLn('Периметр равен: ', (a+b)*2);
end.