Вопрос по разделу "Программы (Beta)

[Сергей Борисович Ш]

var hh_sys, mim_sys, ss_sys, ms_sys: word;

procedure init; cdecl; export;
begin

end;

procedure UserFunction; cdecl; export;
begin
If (temp <= 14) then
pechka := word(1)
else
pechka := word(0);
begin
DecodeTime(Time, hh_sys, mim_sys, ss_sys, ms_sys);
If (hh_sys >= 12) and (mim_sys >= 6) and (hh_sys <= 20) and (mim_sys <= 10) then
on_nasos := word(1)
else
off_nasos := word(1);
end;
end;