12 lines
313 B
ObjectPascal
12 lines
313 B
ObjectPascal
begin
|
|
var t := ReadInteger; // температура
|
|
|
|
var color :=
|
|
if t.Between(-100, 0) then 'blue' else
|
|
if t.Between(1, 15) then 'green' else
|
|
if t.Between(16, 30) then 'yellow' else
|
|
if t.Between(31, 100) then 'red' else
|
|
'black';
|
|
|
|
Println($'Temperature color: {color}');
|
|
end. |