Задача 1: Найти сумму первых 10 чисел с цикла FOR

Задача 2: Найти произведение первых 10 чисел с цикла FOR

Ты не написал на каком языке программирования, но я напишу на Pascal))

var a,b,c:integer;

begin

read(a);

for a:=1 to 10 do

b:=b+a;

end;

var a,b,c:integer;

begin

read(a);

for a:=1 to 10 do

b:=b-a;

end;