7 lines
147 B
Text
7 lines
147 B
Text
procedure main(A)
|
|
k := A[1] | 21.00
|
|
write("K ",k)
|
|
write("C ",k-273.15)
|
|
write("R ",r := k*(9.0/5.0))
|
|
write("F ",r - 459.67)
|
|
end
|