Массив содержит значения 5 температур в градусах цельсия (тс): -5, -3, 1, 11, 19. составить программу перевода этих значений в кельвины (тк) и вывод их (тк=тс-273). pascal abc

Const Tc: array[1..5] of integer=(-5, -3, 1, 11, 19);
var i:integer;
begin
writeln(' Tc  Tk');
for i:=1 to 5 do writeln(Tc[i]:2,' ',Tc[i]-273:5);
end.

Результат:
 Tc Tk
-5 -278
-3 -276
 1 -272
11 -262
19 -254