Pascal доработать программу program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}
var
A, B, S : integer; {A, B – длина сторон, S – площадь}
begin
A := 8; {А присвоить 8}
B := 4; {B присвоить 4}
S := A * B;
writeln(''); {всего 40}
writeln(': Сторона A : Сторона B : Площадь : Периметр :');
writeln('');
writeln(':', A : 7, B : 11, S : 11, ':':5);
writeln('');
readln;
readln
end.

после расчета площади прямоугольника добавить вычисление периметра прямоугольника;
вместо операторов присвоения значений величинам A и B, выполнить приглашение для ввода и ввод значений этих переменных. Приглашение для ввода оформляется следующим образом:
writeln (‘Введите A’);
Ввод значений оформляется оператором readln;
составить блок-схему алгоритма, который реализован данной программой с учетом внесенных изменений

program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}

var

A, B, S, P : integer; {A, B – длина сторон, S – площадь, P - периметр}

begin

writeln('Введите A ');

readln(A);  

writeln('Введите B ');

readln(B);  

S := A * B;

P := 2 * (A + B);

writeln(''); {всего 46}

writeln(': Сторона A : Сторона B : Площадь : Периметр :');

writeln('');

writeln(':', A : 7, ':':5, B : 7, ':':5, S : 5, ':':5, P : 6, ':':5);

writeln('');

readln;

end.

Объяснение:

(1 + 2):   3   = 1

1 * 2 + 3 - 4 =1

((1+2) : 3 + 4) : 5 =1

1 * 2 - 3 : (4 +5- 6) =1

1 * 2 + (3 + 4   +5) - (6 + 7) =1

((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1

моя неделя проходит загружено. половину дня я провожу в школе, потом , репетиторы, выйти на улицу, покататься на санках, поваляться в снегу времени практически а мы что-то говорим о здоровой чтобы я изменил? я бы ввёл электронные учебники и ведь это так бы время, не надо было бы писать в тетрадях уроки, набрал на компьютере   и всё. оставалось бы больше свободного времени для прогулок и общения с друзьями.