Задание 1. Дана программка нахождения суммы и творения первых 10-и естественных

Задание 1. Дана программка нахождения суммы и произведения первых 10-и естественных чисел
Составьте программку нахождения суммы и произведения первых 20-и четных чисел.
program pr_1;
var i, s, p: integer;
begin
s:=0;
p:=1;
for i:=1 to 10 do
begin
s:=s+i;
p:=p*i
end;
writeln ('сумма чисел одинакова ', s);
writeln ('творение чисел равно ', p)
end.

program pr_2;
var i, s, p: integer;
begin
s:=0;
p:=1;
i:=1;
while ilt;=10 do
begin
s:=s+i;
p:=p*i;
i:=i+1
end;
writeln ('сумма чисел одинакова ', s);
writeln ('произведение чисел одинаково ', p)
end.