составить метод и блок схему нахождения площади т периметра прямоугольника по

Так как периметром будет сумма двойных значений длины и ширины, то поначалу нам необходимо ввести переменные:
var shirina, dlina, T: real;
Начинаем программку:
begin
Для ввода значений прописываем строчки, которые читают значения:
readln(shirina);
readln(dlina);
Тут мы вычислим значение периметра:
T := 2 * shirina + 2 * dlina;
Дальше сразу выводим значение периметра прямоугольника:
writeln(Периметр прямоугольника равен, T);
Заканчиваем:
end.