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

Var
    i, s: integer;

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