{$OC+}
{$DS+}
{$DT+}

program opttest;

var
    a: real;
    i: integer;

begin
    a := 1+2+3.6+4+5;
    while(1) do;
    while(0) do;
    while(1) do i := 1;
    while(0) do i := 1;
    for i := 1 to 2 do;
    for i := 2 to 1 do;
    for i := 1 to 2 do a := 1;
    for i := 2 to 1 do a := 1;
    if 1 then else;
    if 0 then else;
    if 1 then i := 1 else a := 1;
    if 0 then i := 1 else a := 1;
end.