Найти сумму и произведение всех целых чисел от 1 до 20 — Pascal(Паскаль)

sum:=0;
pr:=1;
for i:=1 to 20 do
begin
sum:=sum+i;
pr:=pr*i;
end;
writeln('Sum:=',sum);
writeln('Pr:=',pr);