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

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