Составьте программу нахождения суммы чисел третьего десятка( Паскаль)

Question

Составьте программу нахождения суммы чисел третьего десятка( Паскаль)

Answer 1

Var
    i, s: integer;

begin
    s := 0;
    for i := 30 to 39 do
        s := s + i;
    writeln(s);
end.