Написать программу с использованием операторов цикла

На Паскале:
var i,n,m:integer; s:real; a:array[1..100]of real;
begin
write('Введите размер массива: '); readln(n);
writeln('Введите значения элементов массива, разделяя их пробелами');
for i:=1 to n do read(a[ i]); readln; s:=0; m:=0;
for i:=1 to n do if a[ i]>0 then begin s:=s+a[ i]; m:=m+1 end;
if m=0 then writeln('No elements') else writeln(s/m:0:8); readln
end.

На Бейсике:
dim a(100)
input "Введите размер массива: "; n
print "Введите значения элементов массива"
for i=1 to n : input a(i) : next
for i=1 to n
if a(i)>0 then s=s+a(i) : m=m+1
next
if m=0 then print "No elements" else print s/m
end