Дан радиус окружности(любой, заданный пользователем) Найти длину и площадь круга. Выполнить в паскале.

program Hello;

var r : integer;

begin

   write('Введите радиус круга: ');

   readln(r);

   writeln('Длина круга = ', 2 * 3.1415 * r:0:2);

   writeln('Площадь круга = ', r * r * 3.1415:0:2)

end.