Язык Pascal. Программирование для начинающих

const N = 2; M = 3;
var
    mtx: array[1..N,1..M] of real;
    i,j: byte;
begin
    for i:=1 to N do begin
        for j:=1 to M do begin
            mtx[i,j] := sin(15*(i+j));
            if mtx[i,j] then
                mtx[i,j] := 5;
            write(mtx[i,j]:7:2);
        end;
        writeln;
    end;    
end.

var
    n: byte;
    y: longint;
function factorial(m: byte): longint;
begin
    if m = 1 then
        factorial := 1
    else
        factorial := m * factorial(m-1);
end;
begin
    readln(n);
    if n > 5 then
        y := (n+4) * (n+4)
    else 
        y := factorial(n);
    writeln(y);
end.

var
    f,g,h: file of integer;
    n: integer;
begin
    assign(f,'f');
    assign(h,'h'); // вспомог.
    assign(g,'g');
 
    rewrite(f);
    writeln('Вводите числа: ');
    read(n);
    while n  0 do begin
        write(f,n);
        read(n);
    end;
    close(f);
 
    reset(f);
    rewrite(h);
    rewrite(g);
    while not EOF(f) do begin
        read(f,n);
        if n > 0 then write(g,n)
        else write(h,n);
    end;
    close(h);
 
    reset(h);
    while not EOF(h) do begin
        read(h,n);
        write(g,n);
    end;
    close(h);
 
    reset(g);
    while not EOF(g) do begin
        read(g,n);
        write(n,' ');
    end;    
    close(g);    
end.

const N = 15;
var
    arr: array[1..N] of integer;
    i, k: byte;
begin
    randomize;
    for i:=1 to N do begin
        arr[i] := random(100) - 50;
        write(arr[i]:4);
    end;
    writeln;
    write('Введите k , N, ': ');
    readln(k);
    if k > N then exit;
    for i:=1 to k do arr[i] := -1 * arr[i];
    for i:=1 to N do 
        write(arr[i]:4);
    writeln;
end.

const N = 100;
var
    arr: array[1..N] of char;
    i, k: byte;
begin
    k := 0;
    for i:=1 to 127 do
        if ('a' = chr(i)) and ('z' >= chr(i)) or ('0' = chr(i)) and ('9' >= chr(i)) then begin
            k := k + 1;
            arr[k] := chr(i);
            write(arr[k]);
        end;
    writeln;
 
end.

    for i:=1 to k do
        for j:=1 to k do
            for f:=1 to k do
                write(arr[i],arr[j],arr[f],', ');

const N = 10;
var
    arr: array[1..N] of byte;
    m: longint;
    i, j, k, b: byte;
begin
    readln(m);
    k := 0;
    while m > 0 do begin
        k := k + 1;
        arr[k] := m mod 10;
        m := m div 10;
    end;
 
    for i:=1 to k-1 do
        for j:=1 to k-i do 
            if arr[j] > arr[j+1] then begin
                b := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := b;
            end;        
 
    for i:=1 to k do 
        write(arr[i],' ');
    writeln;
end.

const N = 10;
var
    arr: array[1..N] of real;
    i: byte;
    arg, sum: real;
begin
    randomize;
    arg := 0;
    for i:=1 to N do begin
        arr[i] := random();
        write(arr[i]:5:2);
        arg := arg + arr[i];
    end;
    arg := arg / N;
    writeln;
    writeln('Среднее арифметическое: ', arg:5:2);
    sum := 0;
    for i:=1 to N do begin
        if arr[i] > arg then
            sum := sum + arr[i];
    end;
    writeln('Сумма элементов, превосходящих среднее арифметическое: ', sum:5:2);
end.

const N = 20;
var
    arr: array[1..N] of integer;
    i, qty: byte;
    a, b, c, sum: integer;
begin
    randomize;
    for i:=1 to N do begin
        arr[i] := random(100)-50;
        write(arr[i]:4);
    end;
    writeln;
    write('Интервал: ');
    readln(a, b);
    if a > b then begin
        c := a;
        a := b;
        b := c;
    end;
    qty := 0;
    sum := 0;
    for i:=1 to N do 
        if (arr[i] >= a) and (arr[i] = b) then begin
            qty := qty + 1;
            sum := sum + arr[i];
        end;
    writeln('Количество: ', qty);
    writeln('Сумма: ', sum);
end.

var
    str, s: string;
    arr: array[1..255] of string;
    n,i,l: byte;
begin
    readln(str);
    l := length(str);
    n := 0;
    s := '';
    for i:=1 to l do 
        if ((str[i] = ' ') or (i = l)) and (s  '') then begin
            n := n + 1;
            if (i = l) and (str[i]  ' ') then s := s + str[i];
            arr[n] := s;
            s := '';
        end
        else
            if str[i]  ' ' then
                s := s + str[i];
    writeln(n);
    for i:=1 to n do 
        writeln(arr[i],' - ', length(arr[i]));
end.

var
    str1,str2,str3: string;
    l,i: byte;    
begin
    readln(str1);
    str2 := '';
    str3 := '';
    l := length(str1);
    for i:=1 to l do
        if odd(i) then
            str3 := str3 + str1[i]
        else
            str2 := str2 + str1[i];
    writeln(str2);
    writeln(str3);
end.

const N = 255;
var
    str: string;
    ascii: array[1..N] of byte;
    l,i,j,b: byte;    
begin
    readln(str);
    l := length(str);
    for i:=1 to l do
        ascii[i] := ord(str[i]);
 
    for i:=1 to l-1 do // сортировка
        for j:=1 to l-i do
            if ascii[j] > ascii[j+1] then begin
                b := ascii[j];
                ascii[j] := ascii[j+1];
                ascii[j+1] := b;
            end;
 
    for i:=1 to l do 
        write(ascii[i]:4);
    writeln;
    for i:=1 to l do 
        write(chr(ascii[i]):4);
    writeln;            
end.