Составить программу, использовать оператор цикла с заданным количеством повторов.. Ввести 10 элементов, посчитать их сумму, количество четных, найти минимальное.

var i,n,min,sum,chet:integer;beginmin:=0;chet:=0;sum:=0;for i:=1 to 10 dobeginreadln(n);sum:=sum+n;if min>n then min:=n;if n mod 2=0 then chet:=chet+1;end;writeln(sum,min,chet);end.