buatlah sebuah program sederhana yang meminta input berupa bilangan bulat positif sebanyak 10 kali program akan berhenti

karena kamu tidak menjelaskan dengan bahasa pemrograman aap, aku bantu dengan bahasa pemrograman pascal :

var i : integer; j : array[0..9] of integer;
begin
for i := 0 to 9 do
begin
writeln('masukkan bilangan ke : ',i);
readln(j[i]);
end;
writeln('angka yang anda masukkan :');
for i := 0 to 9 do
write(j[i],', ');
end;