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

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