Информатика [РТФ, Андреев, 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.