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

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