Аналитикалық машинаның реті​

NortonCommander - Файловый менеджер
WinRar - Программа архивирования
keyboard.drv, sound.drv, mouse.drv - Драйвера устройств клавиатуры, аудио и мышки
«1С Предприятие» - программные продукты для автоматизации бухгалтерского и управленческого учёта

MSWord, Блокнот - текстовые редакторы
MSExcel - табличный редактор
MSAccess - реляционная СУБД
3DStudio - редактор трёхмерной графики
Си, Basic, Pascal, C+, Фортран, FoxPro - Языки программирования
Linux, Windows7 - Операционные системы
AdobePhotoshop, Paint - графический редактор
MacromediaFlash - медиа-плеер
Компас 3D - САПР(Система автоматизированного проектирования)
QIP - интернет-пейджер
AVP Касперского, DrWeb - антивирусная программа
OutlookExpress - почтовый клиент и органайзер
HTML - язык гипертекстовой разметки
NeroPremium - программа записи дисков
«Консультант Плюс» - Справочная система

P.S. Вроде всё описал, если нужны объяснения пишите

Uses crt;
const N=3;M=3;
      L=9;
var a:array [1..N,1..M] of real;
    b:array [1..L] of real;
    i,j,x,k:integer;
begin
     x:=1;
     for i:=1 to N do
         for j:=1 to M do
         begin
              read(a[i,j]);
              if a[i,j]>0 then
              begin
                   b[x]:=a[i,j];
                   x:=x+1;
              end;
         end;
     clrscr;
     for i:=1 to N do
         begin
         for j:=1 to M do
             write(a[i,j]:3:0);
         writeln;
         end;
     writeln;
     for k:=1 to x-1 do
         write(b[k],' ');
end.