Program mas_4_by_Kornev_Maxim;
  Var i, x, c: integer;
    a: array [1..20] of integer;
  Begin
    Randomize;
    Writeln ('Пожалуйста, нажмите "Enter", чтобы сгенерировать случайный массив.');
    readln;
    For i:=1 to 20 do
      a[i]:=random(101);
    For i:=1 to 19 do
    begin
      If i mod 10 = 0 then
        Writeln ('a[',i,']=',a[i],';')
      else
        Write ('a[',i,']=',a[i],'; ');
    end;
    Write ('a[',20,']=',a[20],'.');
  End.

UHJvZ3JhbSBtYXNfNF9ieV9Lb3JuZXZfTWF4aW07CiAgVmFyIGksIHgsIGM6IGludGVnZXI7CiAgICBhOiBhcnJheSBbMS4uMjBdIG9mIGludGVnZXI7CiAgQmVnaW4KICAgIFJhbmRvbWl6ZTsKICAgIFdyaXRlbG4gKCfQn9C+0LbQsNC70YPQudGB0YLQsCwg0L3QsNC20LzQuNGC0LUgIkVudGVyIiwg0YfRgtC+0LHRiyDRgdCz0LXQvdC10YDQuNGA0L7QstCw0YLRjCDRgdC70YPRh9Cw0LnQvdGL0Lkg0LzQsNGB0YHQuNCyLicpOwogICAgcmVhZGxuOwogICAgRm9yIGk6PTEgdG8gMjAgZG8KICAgICAgYVtpXTo9cmFuZG9tKDEwMSk7CiAgICBGb3IgaTo9MSB0byAxOSBkbwogICAgYmVnaW4KICAgICAgSWYgaSBtb2QgMTAgPSAwIHRoZW4KICAgICAgICBXcml0ZWxuICgnYVsnLGksJ109JyxhW2ldLCc7JykKICAgICAgZWxzZQogICAgICAgIFdyaXRlICgnYVsnLGksJ109JyxhW2ldLCc7ICcpOwogICAgZW5kOwogICAgV3JpdGUgKCdhWycsMjAsJ109JyxhWzIwXSwnLicpOwogIEVuZC4=