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