Дан радиус окружности,найти длину окружности и площадь круга на языке программирования pascal(паскаль)

Var r:integer; 
begin 
writeln('Введите радиус'); 
read(r); 
writeln('Длина окружности = ',2*pi*r); 
writeln('Площадь круга = ',pi*sqr(r)); 
end.