Составить программу которая для любых пяти чисел находит сумму

Var
    i: integer;
    s, n: real;

begin
    for i := 1 to 5 do
    begin
        readln(n);
        s := s + n;
    end;
    writeln(s);
end.