program ArrayTask;

const range = 50;

var i: integer;
    arr: array [1..range] of integer;

begin
    randomize;
    writeln('Startup array');
    for i:=1 to range do
        begin
        arr[i]:=random(99)+1;
        writeln('arr[', i,  ']=', arr[i]);
        end;

    writeln();
    writeln('Array elements + 15');
    for i:=1 to range do
        begin
        writeln('arr[', i,  ']=', arr[i]+15);
        end;

    writeln();
    writeln('Array with right step on 2');
    writeln('arr[1]=', arr[range - 1]);
    writeln('arr[2]=', arr[range]);

    for i:=3 to (range) do
        begin
        writeln('arr[', i ,']=', arr[i-2]);
        end;
end.