Составить и записать программу: вычисляющу по 2 ум значения сторон прямоугольника его площадь и периметр (результат программы должен быть оформлен в виде: Площадь прямоугольника равна ... кв. см периметр прямоугольника равен ... см

program rectangle;

var a, b:real;

begin

write ('Введите длину прямоугольника в см: ');

readln (a);

write ('Введите ширину прямоугольника в см: ');

readln (b);

writeln ('Периметр прямоугольника : ', (a + b) * 2, ' см');

writeln ('Площадь прямоугольника : ', a * 2, ' см кв. ');

end.