Информатика. "Выполняем на компьютере"
Создайте список уроков, который будут у вам сегодня используя параметр sep​

Напишу сразу код, немного прокемментировал, но если взялись связать свою жизнь с информатикой, то нужно изучать это всё.

varF:array[0..16] of integer;i,i2:integer;schet:integer;
begin
schet:=0;
//заполнение массива согласно данным условиям
for i:=0 to 9 dof[i]:=1;
for i:=11 to 13 dof[i]:=1;
//создадим два отрицательных массива
f[10]:=-1;
F[14]:=-1;
//заполним вручную недостающие
f[15]:=1;
f[16]:=1;
for i:=0 to high(f) do begin  //начинаем цикл 
 if f[i]<0 then begin       //проверяем первое условик 
  if schet=0 then begin     
 inc(schet);     
 for i2:=0 to i do       
 f[i2]:=0;     
 end else     
if schet=1 then  //второе условие     
 for i2:=i to high(f) do         
 f[i2]:=0;   end;end;
//end for

Program Task;
Const N = 5;
Var a: Array [1..N] of LongInt;
    i: Integer;
Function MinDigit(number: LongInt): Integer;
Var digits: Array of Integer;
    num, min, i: Integer;
Begin
    num := number;
While num <> 0 Do
Begin
    num := num Div 10;
    i := i + 1;
End;
    SetLength(digits, i);
    num := number;
For i := 0 To Length(digits) - 1 Do
Begin
    digits[i] := num Mod 10;
    num := num Div 10;End;
For i := 0 To Length(digits) - 1 Do
    If digits[i] < digits[min] Then
    min := i;    Result := digits[min];
End;
Begin
    WriteLn('Введите ', N, ' целых чисел через пробел');
    For i := 1 To N Do
        Read(a[i]);
    For i := 1 To N Do
        Write(MinDigit(a[i]), ' ');
End.