Помогите решить задачу на Кумире: Дан массив. Напечатать все элементы, не превышающие числа 100. Заранее благодарен)))

var
n, i: integer;
a:array of integer;
begin
readln(n);
setlength(a, n+1);
for i:=1 to n do read(a[i]);
for i:=1 to n do if a[i]<=100 then write(a[i], ' ');
end.


n - размер массива. n вводится в начале, а затем уже вводится n чисел в массиве.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши в комментарии.

А можно на кумире написать вот эту программу?

Не увидел, что нужно писать на кумире. Увы, этот язык не знаю.

Жаль...