Ответ: Program Rectangle;var a, b, s, p: integer;Begin //Ввод сторон write(‘Длина прямоугольника -> ‘); readln(a); write(‘Ширина прямоугольника -> ‘); readln(b); //Площадь s := a * b; writeln(‘Площадь прямоугольника: ‘, s); //Периметр p := 2 * a + 2 * b; writeln(‘Периметр прямоугольника: ‘, p);End.

Ответ: Файл как, скачивается?

Ответ: да

Ответ: спасибо, еще раз!

Ответ: Всегда пожалуйста! Рад помочь!

Ответ: n:=a*b; **