Найти сумму и произведение,количество четных чисел на промежутке[10 до 50]. В паскале надо бы программку составить очень надо.

Program n1;var i: integer;sum,k,p: real;beginsum:=0;k:=0;p:=1;for i:=10 to 50 doif i mod 2=0 then beginsum:=sum+i;k:=k+1;p:=p*i;end;writeln('кол-во: ',k);writeln('произведение: ',p);writeln('сумма: ',sum);end.