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.