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

program rectangle;var a, b:real;beginwrite(\'Введите длину прямоугольника в см: \');readln(a);write(\'Введите ширину прямоугольника в см: \');readln(b);writeln(\'Периметр прямоугольника : \', (a + b) * 2, \' см\' );writeln(\'Площадь прямоугольника : \', a * 2, \' см кв. \' );end.