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. //Конец программы