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

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