Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab1

program Lab1;
type
    {Диапазон:}
    a = -10..10;

    {Перечисление:}
    num = (one, two, three);

var
    {Целые:}
    c1 : byte;
    c2 : word;
    c3 : shortint;
    c4 : integer;
    c5 : longint;

    {Логический:}
    b1 : boolean;
    b2 : boolean;
    b3 : boolean;

    {Тип-диапазон:}
    d1 : a;

    {Символьный тип:}
    ch1 : char;

    {Перечисляемый тип:}
    p1 : num;

begin
    {Присвоим значения переменным:}
    randomize;
    c1 := 1;
    c2 := 2;
    c3 := -3;
    c4 := 4;
    c5 := 5;
    b1 := true;
    b2 := true;
    b3 := false;
    
    ch1 := 'E';

    {Операции над переменными:}
    Inc(c1);            {Увеличить на еденицу}
    Dec(c2);            {Уменьшить на еденицу}
    c3 := Abs(c3);      {Модуль числа}
    c4 := Sqr(c4);      {Квадрат числа}
    c4 := swap(c4);     {Смена байтов местами}
    c5 := random(c5);   {Рандомное число (от 0 до с5-1)}
    writeln(c1);        
    writeln(c2);
    writeln(c3);
    writeln(c4);
    writeln(c5);

    if b1 and Odd(c1) or b2 xor b3 then begin
        writeln(ord(ch1));  {Число в таблице}
    end;
    
    if (c1 = c2) or (c2 <> c3) or (c3 < c4) or (c4 <= c5) or (c2 > c3) or (c3 >= c5) then begin
        writeln(chr(72));   {Символ из таблицы ascii}
    end;

    d1 := 5;            {Присвоение значения из диапазона}
    p1 := two;          {Присвоение значения из перечисления}
    writeln(d1);
    writeln(p1);
end.