написать программу для определения количества и суммы только положительных чисел из 3, введенных с клавиатуры

var a:array[1..3] of integer;i,sum,col:integer;beginsum:=0;col:=0;for i:=1 to 3 do readln(a[i]);for i:=1 to 3 doif a[i]>0 thenbegin col:=col+1;sum:=sum+a[i];end;writeln('Сумма: ',sum);writeln('Кол-во: ',col);end.