Алгоритм на языке блок-схем:
START
Ввести значения сторон a и b
Вычислить периметр P = 2*(a + b)
Вычислить площадь S = a * b
Вывести результаты P и S
STOP
Программа на языке Паскаль:
program RectangleProperties;
var
a, b, P, S: integer;
begin
write('Введите значение стороны a: ');
readln(a);
write('Введите значение стороны b: ');
readln(b);
P := 2 * (a + b);
S := a * b;
writeln('Периметр прямоугольника: ', P);
writeln('Площадь прямоугольника: ', S);
end.
Эта программа сначала запрашивает у пользователя значения сторон прямоугольника, затем вычисляет периметр и площадь согласно формулам и выводит результаты на экран.