Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (альтернатива) / L (1)

program labor1;
type
    perechisl = (white, black, green);  
    diapazon = -100..100;
var
    cel1 : byte;
    cel2 : word;
    cel3 : shortint;
    cel4 : integer;
    cel5 : longint;
    logich : boolean;
    simv : char;
    diap : diapazon;
    perech : perechisl;
begin
    cel1 := 1;
    inc(cel1);
    writeln(cel1);

    cel2 := 1;
    dec(cel2);
    writeln(cel2);

    cel3 := -5;
    cel3 := Abs(cel3);
    writeln(cel3);

    cel4 := 4;
    cel4 := Sqr(cel4);
    writeln(cel4);

    randomize;
    cel5 := random(cel5);
    cel5 := swap(cel5);
    writeln(cel5);

    logich := true;
    if (odd(cel4) and logich) xor not true or (cel1 = cel2) or (cel3 <> cel4) or (cel5 < cel1) and (cel2 <= cel3) and (cel4 > cel5) and (cel1 >= cel2)then begin
        writeln('true');
    end;

    simv := 'A';
    writeln(simv);

    diap := 0;
    writeln(diap);

    perech := white;
    writeln(perech);

    writeln(chr(65));
    writeln(ord(simv));
end.