Ответ: 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; **