Составить программу на яз. pascal, переводящую температуру вводимую в градусах в кельвины

Var a:real;beginwrite('Введиете градусы Цельсия: ');readln(a);writeln('Градусы Кельвина: ',a+273);end.