Составить программу паскаля дан ряд чисел 5 9 13 17 и т. д. составить программу которая находит элемент стоящий на 20 месте

//PascalABC.NET 3.1 сборка 1219
begin
    var a := Range(1, 20).Aggregate(5, (s, x)-> s + 4);
    PrintLn(a);
end.

или более сложно

const
    n = 20;

var
    i, a: integer;

begin
    a := 5;
    for i := 2 to 20 do
        a := a + 4;
    writeln(a);   
end.