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)