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

  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.