Question

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)

Answer 1

программа рисует прямоугольник, длина и ширина которого задана случайным образом в указанном диапазоне 
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.