Составить программу, которая находит периметр прямоугольника со сторонами a и b, введенные с клавиатуры

Program SandP; //Название программыvar //Описание переменныхx,y: real; // Стороны прямоугольникаS: real; // Площадь прямоугольникаP: real; // Периметр прямоугольникаprocedure RectSP(a,b: real; var S,P:real); //ПроцедураbeginS := a * b; //Нахождение площадиP := a + b; //Нахождение суммыend;begin //Начало основной части программыwriteln(Введите стороны прямоугольника: ); //Диалог с пользователемreadln(x,y); //Считывание сторонRectSP(x,y,S,P); //Вызов процедурыwriteln(Площадь равна ,S); //Вывод площадиwriteln(Периметр равен ,P); //Вывод периметраend. //Конец программы