Даны стороны прямоугольника 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), ИНАЧЕ БУДЕТ ВЫДАВАТЬ ОШИБКУ