Периметр прямоугольника 21 дм квадратный.Его ширина 7м.Найди площадь прямоугольника.

Помогите пожалуйста записать эту программу в массивах, программу написал но в массивах слабо разбираюсь. или объясните как ее записать? Если нужен файл 'belarus.jpg' он прикреплен. Спасибо

program Geograf1;

uses GraphABC;

var karta, A, S: integer;

begin SetWindowSize(520,480);

karta := LoadPicture('belarus.jpg');

DrawPicture(karta,10,10);

setBrushColor(clRed);

S:=1700; A:= round(sqrt(S)); Rectangle (250, 225, 250+a, 225+A);

S:=500; A:= round(sqrt(S)); Rectangle(405,345,405+a,345+A);

S:=330; A:= round(sqrt(S)); Rectangle(375,215,375+A,215+A);

S:=340; A:= round(sqrt(S)); Rectangle(360,105,360+A,105+A);

S:=320; A:= round(sqrt(S)); Rectangle( 55,235,55+A,235+A);

S:=300; A:= round(sqrt(S)); Rectangle( 40,385,40+A,385+A);

end.

написать сочинения по вопросам красказу В дурном обществе

1. Почему Вася подружился с Вальком и Марусей,2. Почему Вася рано испытал невыносимый ужаз одиночиства,3.Какие качества Васи понравились Вальку и Марусе,4.Что обшего было у Васи и Валькаю

Буду очень блогодарен

На рисунке приведен график колебаний на пружине груза массой 0,5 кг .Определите жесткость пружины