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

var i,s,p,k:integer; begin s:=0;    p:=1;        k:=1; for i:=10 to 50 do  if  i mod 2 =0 then begin s:=s+i:                                         p:=p*i;                                         k:=k+1;                                end; writeln('Сумма четных чисел от 10 до 50 равна ',s); writeln('Произведние четных чисел от 10 до 50 равна ',p); writeln('Количество четных чисел от 10 до 50 равна ',k); end.