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.