program name; uses crt; var a,b: integer; begin writeln (введите ширину); readln(a); writeln (введете длину); readln(b); writeln (пример=, 2*(a+b)); writeln (площадь=, a*b); end. нужно подставить: ширину [15,20] длину [20,30] , a:= random (6)+15 rectangle (x1y1,x2y2)

Программа рисует прямоугольник, длина и ширина которого задана случайным образом в указанном диапазоне 
program name;
uses GraphABC;
var a,b,X1,X2,Y1,Y2: integer;
begin
 a:= random (6)+15; 
b:= random (9)+20;
 X1:=300; X2:=X1+a; 
Y1:=300; Y2:=Y1+b;
rectangle (X1,Y1,X2,Y2);
end.