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

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