Заполнить массив z{30] случайными числами в интервале от 2 до 49 и вывести его на экран

Var z: array[1..30]of integer; var i: integer; begin randomize; for i: =1 to 30 do begin     z[i]: =(random(;     writeln(z[i]);   end; end.   значения выводить можно через отдельный цикл  var z: array[1..30]of integer; var i: integer; begin randomize; for i: =1 to 30 do  z[i]: =(random(; for i: =1 to 30 do  writeln(z[i]); end.  

Код в  turbo  pascal: uses graph,crt; var x,y,dx,dy,device,mode,i: integer;   begin      device: =0;       initgraph(device,mode,'');       x: =10; y: =10;       dx: =1; dy: =1;       i: =1;   repeat          setcolor(cyan);           circle(x,y,10);           setfillstyle(1,3);           floodfill(x,y,cyan);           delay(10);           setcolor(black);           circle(x,y,10);           setfillstyle(1,0);           floodfill(x,y,black);           x: =x+dx; y: =y+dy;       if (x> 300) or (y> 200) then                                                                begin                                                                    x: =10;                                                                     y: =10;                                                                     i: =i+1;                                                                 end;   until i> 5; end.

Program p1; const n=5; var i: integer;     kurs: array[1..n] of real;     summa,r,bank: real; begin   writeln('введите сумму: ');   read(summa);   for i: =1 to n do  begin   writeln('введите курс в ',i,' банке: ');   read(kurs[i]);   end;     r: =0;   for i: =1 to n do  begin   if (kurs[i]*summa)> r then   begin   r: =kurs[i]*summa;   bank: =i;   end;   end;     writeln('выгодно в банке №: ',bank); end.