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 чисел в массиве.
Если возникнут вопросы или будут ошибки в ходе работы программы, пиши в комментарии.
Мою рельсер
Мо+ю рельсы(убираем ы),сердце(убираем с,д,ц,е)
КАРП-кара-кора-КОЗАВОЛ-кол-кот-КИТЛУЖА-ложа-кожа-кора-гора-горе-МОРЕ<span>ПАУК-парк-пара-фара-фура-мура-МУХА
</span>
Строка комманд это лишнее, а все остальное подходит