Задание №1: program Program1; var a, b, c, d, S1, S2: real; begin writeln('Введите значения a и b:'); readln(a, b); S1 := a * b; S2 := S1 / 6; writeln('Введите значение c:'); readln(c); d := S2 / c; writeln('Вторая сторона второго прямоугольника = ', d); end.
Задание №2: 1 итерация цикла: S = 3 2 итерация цикла: S = 21 3 итерация цикла: S = 81 Ответ: 81.