Дан радиус окружности. найдите длину окружности и площадь круга. информатика

Program Circle;

Uses crt;

const pi=3.14; 

var  C,r,S:real;

begin

     clrscr;

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

     readln(r);

     C=pi*2*r;

     S=2*pi*(sqr(r));

     writeln('Площад круга равна:',S);

     writeln('Длина окружности равна:',C); 

      readkey;

end.