Дан линейный массив в размере 5 вывести элементы больше 10

Program zadacha; var a: array[1..5] of real;     {можно взять и тип integer} i: integer; begin for i: =1 to 5 do begin writeln('введите элемент массива'); readln(a[i]); end; for i: =1 to 5 do     if a[i]> 10 then write(a[i],' '); writeln; end.

// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! type   filenameclass=class     public     fullpath: string;   name: string;   extension: string;   path: string;     constructor (fp: string);   begin       fullpath: =fp;       name: =extractfilename(fp);       var p: =lastpos('.',name);       if p> 0 then name: =name[: p];       extension: =extractfileext(fp);       path: =extractfilepath(fp)   end;     procedure puttype;   begin       case extension[2: ] of       'txt': writeln('файл текстовый');       'bmp','jpg','tiff','gif','psd','png','ico': writeln('файл графический');       'mp4','mov','mpg','avi': writeln('файл видео')       else writeln('файл неизвестного типа')       end   end;     procedure putname;   begin       writeln(name)   end;       end; begin   var ofile: =new filenameclass(readlnstring('полный путь к файлу: '));   ofile.putname;   ofile.puttype;   ofile: =nil // если надо явно удалить объект end. пример полный путь к файлу: pabcwork.net\demo.bmp demo файл графический "десятикратный размер", который вы не соизволили объяснить, сделаете сами, когда поймете, что это.