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

Так как периметром будет сумма удвоенных значений длины и ширины, то сначала нам нужно ввести переменные:

var shirina, dlina, T: real;

Начинаем программу:

begin

Для ввода значений прописываем строки, которые читают значения:

readln (shirina);

readln (dlina);

Тут мы вычислим значение периметра:

T : = 2 * shirina + 2 * dlina;

Дальше сразу выводим значение периметра прямоугольника:

writeln ('Периметр прямоугольника равен', T);

Завершаем:

end.