var
    a : array [1..15] of Longint;
    i : Longint;

begin
    for i := 1 to 15 do
        a[i] := Random(21) + 10;
    Write('Исходный массив : ');
    for i := 1 to 15 do
        Write(a[i], ' ');
    Writeln;
    Writeln;

    Writeln('1)');
    for i := 1 to 4 do
        Write(a[i], ' ');
    Writeln;
    Writeln;

    Writeln('2)');
    for i := 15 downto 15-3+1 do
        Writeln(a[i], ' ');
    Writeln;

    Writeln('3)');
    Write(a[9]);
end.