Расчет расхода воды

[Scream]

Это он (Scream) глупость написал. У автора темы "каша в голове", по этой причине и не может решить эту простую задачу. Сказано же: "Кто ясно мыслит, тот ясно излагает".

Мне такого никто не говорил)))
Может я задачу описал не правильно. Всё действительно просто, но я зашел услышать есть ли еще решения. Я хочу делать всё максимально просто и удобно.
Проблема вовсе не в том что я тупой, коим тут меня вы выставили, а в том что я хочу сделать это хорошо.
Вот что было до создания темы у меня

PROGRAM LPM
VAR
    r1: R_TRIG;
    ton1: TON;
    one: BOOL;
    t1: TIME;
END_VAR
VAR_OUTPUT
    O_DW: DWORD;
END_VAR

ton1(pt:=t#1m);

r1(clk:=i1);
IF r1.Q THEN
    IF one=FALSE
        THEN
            one:=TRUE;
            ton1(in:=TRUE);
            ELSE
            t1:=ton1.ET;
            one:=FALSE;
            ton1(in:=FALSE);
    END_IF
END_IF
O_DW:=3600000/TIME_TO_DWORD(t1);

Вот теперь

PROGRAM LPH
VAR
    r1: R_TRIG;
    one: BOOL;
    t1,t2: TIME;
END_VAR
VAR_OUTPUT
    liters: WORD;
END_VAR

r1(clk:=i8);
IF r1.Q THEN
    IF one=FALSE
        THEN
            one:=TRUE;
            t1:=TIME();
            ELSE
            t2:=TIME()-t1;
            one:=FALSE;
    END_IF
END_IF
Liters:=DWORD_TO_WORD(3600000/TIME_TO_DWORD(t2));

Валенок разъяснил всё очень хорошо, за что ему спасибо.
В общем всем спасибо, что я хотел, я узнал.