Написать прогу, переводящую значения температуры из шкалы цельсия в шкалы фаренгейта и кальвера( f=1.8*nградусов цельсия+32 k=nградусов цельсия+273.15).в pascal abc.

var k,c,f:integer;
begin
read(c);
f:=c*1.8+32;
k:=c+273.15
writeln('F=',f);
writeln('K=',k);
edn.