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.

Import java.util.scanner; public class myclass {       public static void main(string args[]) {               scanner in = new scanner(system.in);               int n = in.nextint();               if ((n+1) % 2 == 0)                       system.out.println(n+1);               else                       system.out.println(n+2);       } }

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readlninteger;   if not n.inrange(10,100) then begin       writeln('ожидалось значение от 10 до 100');       exit       end;   var famh,namh,faml,naml: string;   var (hball,lball): =(-1.0,16.0);   loop n do begin       var a: =readlnstring.towords;       var avg: =(a[2].toreal+a[3].toreal+a[4].toreal)/3;       if avg> hball then (famh,namh,hball): =(a[0],a[1],avg)       else           if avg< lball then (faml,naml,lball): =(a[0],a[1],avg)       end;   writeln;   println('лучший',famh,namh);   println('худший',faml,naml) end.