Написать программу которая выводит на экран максимальное из трех целых чисел.

Program maxin; var       a: integer;       max: integer;       i: integer; begin max: =0; for i: =1 to 3 do begin       writeln('введите ваше число');       readln(a); if a> max then max: =a; end; writeln('максимальное число=', max: 2); end.

Const n = 5;   m = 5; var a: array[1..n,1..m] of integer; i,j,k: integer; begin //для теста заполним массив n * m сл.числами и //определяем количество нечетных   for i: =1 to n do begin       for j: =1 to m do begin           a[i,j]: =random(21)-10; write(a[i,j]: 4);           if a[i,j] mod 2< > 0 then k: =k+1;       end;       writeln;   end;   writeln('нечетных в массиве: ',k);

// pascalabc.net 3.1, сборка 1201 от 18.03.2016 begin   var n: =readinteger('n=');   var m: =18;   var a: =matrixrandom(m,n,-999,999);   var imax: =0;   var jmax: =0;   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do begin           write(a[i,j]: 5);           if abs(a[i,j])> abs(a[imax,jmax]) then begin               imax: =i; jmax: =j               end           end;       writeln       end;   writeln('максимум по модулю а[',imax+1,',',jmax+1,           ']=',a[imax,jmax]) end. тестовое решение: n= 10   -275  257 -860  744 -263  843      8  667  425 -547   -392  635  636 -441  -64  973  201 -864 -126 -868   -764    43 -884 -667 -113  807  354  966 -155 -527   532 -790 -911      0 -303 -471  453  431 -741 -582   -121  548 -946  610  724 -426  963 -589 -591  845   -846  629  728  634 -581  681  141  807 -142  -70   -510    42 -177  -48  -80 -601  547 -364  862 -593   -480  770  876 -544  253 -312  -11 -494 -391 -687   843  -56  558      0 -681  903 -519 -545 -418    15   387  646 -427  329  928  837 -274  101 -310  325     27  327 -452 -998  325 -616  752  273 -619  731   -307 -364  199 -454    86  546  483  823 -367    17   917    92 -945 -152    19 -126  198 -453 -473  416   961  888  815  283  286 -483 -604  557  674  935   -849  207 -926 -149 -677 -248 -552 -972 -756 -617   -646  -97 -532  673  407  934  272  700  -18 -548   186  206 -253  -35  769 -196 -179  915  259 -431   151  926 -851 -302 -134 -289    19  204 -474 -732 максимум по модулю а[11,4]=-998