Рассчитать информационный объем на берегу пустынных волн стоял он, дум великих полн, и вдаль глядел. пред ним широко река неслася; бедный чёлн по ней стремился одиноко. по мшистым, топким берегам чернели избы здесь и там, приют убогого чухонца; и лес, неведомый лучам в тумане спрятанного солнца, кругом шумел. и думал он: отсель грозить мы будем шведу, здесь будет город заложен на зло надменному соседу. природой здесь нам суждено в европу прорубить окно,1 ногою твердой стать при море. сюда по новым им волнам все флаги в гости будут к нам, и запируем на просторе сто лет, и юный град, полнощных стран краса и диво, из тьмы лесов, из топи блат вознесся пышно, горделиво;

По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.

//PascalABC.NET 3.1 сборка 1239
const
    n = 10;
    m = 10;

var
    i, j: integer;
    a, b: array[1..n, 1..m] of integer;
    f: boolean;

begin
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            a[i, j] := random(50);
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
    writeln;
    
    for i := 1 to n do
    begin
        f := false;
        for j := 1 to m do
        begin
            if not f and (a[i, j] mod 2 = 1) then begin
                a[i, j] := 2 * a[i, j];
                f := true;
            end;
            write(a[i, j]:3, ' ');
        end;
        writeln;
    end;
end.