Даны стороны прямоугольника a и b (вещественные числа, вводятся с клавиатуры). найти его площадь по формуле s=a*b и периметр по формуле p=2*(a+b).

Var a, b : real;
begin
write('Сторона A = ');
readln(a);
write('Сторона B = ');
readln(b);
writeln('S= ',a*b);
a:=a+b;
a:=a*2;
writeln('P= ',a);
end.
ТОЛЬКО ВВОДИТЕ ДРОБНЫЕ ЧИСЛА С ТОЧКОЙ (НАПРИМЕР 5.5), ИНАЧЕ БУДЕТ ВЫДАВАТЬ ОШИБКУ