PROGRAM programST

VAR_EXTERNAL
    TEMP_A: INT;
    TEMP_B: INT;
    TEMP: INT;
    GRZALKA: BOOL;
    WENTYLATOR: BOOL;
    DACH: BOOL;
END_VAR

VAR
    temp_sr: INT;
    wys_temp: INT;
END_VAR

    temp_sr := (TEMP_A + TEMP_B)/2;
    wys_temp := (TEMP_B/2) + TEMP_B;

    IF TEMP < TEMP_A AND NOT GRZALKA THEN
        GRZALKA := TRUE;
    ELSIF TEMP >= temp_sr AND GRZALKA THEN
        GRZALKA := FALSE;
    END_IF;

    IF TEMP > TEMP_B AND NOT WENTYLATOR THEN
        WENTYLATOR := TRUE;
    ELSIF TEMP <= temp_sr AND WENTYLATOR THEN
        WENTYLATOR := FALSE;
    END_IF;

    IF TEMP_A > TEMP_B THEN
        TEMP_A := TEMP_B;
    END_IF;

    IF TEMP_B < TEMP_A THEN
        TEMP_B := TEMP_A;
    END_IF;

    IF TEMP > wys_temp THEN
        DACH := TRUE;
    ELSE
        DACH := FALSE;
    END_IF;

END_PROGRAM