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

Uses crt;
var sum, i : integer;
Begin
sum := 0;
for i := 20 to 50 do
sum := sum + i;
writeln(sum);
End.