);
if t2> 200 then writeln ('Вимкнути другий обігрівач ');
if t2 <55 then writeln ('Включити другий обігрівач ');
if t3> 200 then writeln ('Вимкнути третій обігрівач ');
if t3 <55 then writeln ('Включити третій обігрівач ');
if t4> 200 then writeln ('Вимкнути четвертий обігрівач ');
if t4 <55 then writeln ('Включити четвертий обігрівач ');
for j: = 1 to 100000 do;
end;
end.
