Найти сумму и произведение,количество четных чисел на промежутке[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.