Устройство вывода информации, подходящее для воспроизведения не менее трёх из пяти следующих файлов: текстового, графического, аудиофайла, видеофайла, архивного. 1) сканер; 2) колонки; 3) монитор; 4) принтер

Подойдет под номером 3)

Текстовый и графический - монитор, принтер.
аудиофайл- колонки.
видеофайл - монитор и колонки.
возможно я ошибаюсь. вопрос не совсем поняла

1) Натурные модели: манекен, кукла, игрушка и т. д.
    Информационные модели: таблицы, чертежи, схемы и т. д.

2) Этапы построения информ. модели:
1. Постановка цели моделирования.
2. Анализ всех известных субъекту моделирования свойств объекта.
3. Анализ выделенных свойств
4. Выбор формы представления модели (словесное описание, чертеж, таблица, схема и т. д.)
5. Формализация – это процесс построения информационных моделей с формальных языков. Результатом этапа формализации является информационная модель.
6. Анализ полученной модели на непротиворечивость. 
7. Анализ адекватности полученной модели объекту и цели моделирования.

3) Схема - схема метро, дорожная карта и т. д.
    Таблица - классный журнал, прайс-лист продукции и т. д.
    Иерархическая модель - классификация видов животных, расположение книг в библиотеке и т. д.

Var
    fullstr,s,s_int,s_rl,s_str: string;
    int: integer;
    rl: real;
    space,err: integer;
begin
 writeln('String:');
    readln(fullstr);

 while fullstr[1] = ' ' do
        delete(fullstr,1,1);
    while fullstr[length(fullstr)] = ' ' do
        delete(fullstr,length(fullstr),1);
    while pos('  ',fullstr) <> 0 do
        delete(fullstr,pos('  ',fullstr),1);

 s_int := '';
    s_rl  := '';
    s_str := '';
    while fullstr <> '' do begin
        space := pos(' ',fullstr);
        if space = 0 then
            space := length(fullstr) + 1;
        s := copy(fullstr,1,space-1);
        val(s,int,err);
        if err = 0 then
            s_int := s_int + s + ' '
        else begin
            val(s,rl,err);
            if err = 0 then
                s_rl := s_rl + s + ' '
            else
                s_str := s_str + s + ' ';
        end;
        delete(fullstr,1,space);
    end;

 writeln('Integers: ',s_int);
    writeln('Real: ',s_rl);
    writeln('Words: ',s_str);

readln
end.