Как в Паскале записать решить задачку: отыскать площадь круга и длину

//Как в Паскале записать решить задачку: найти площадь круга
//и длину окружности если дан радиус.
//В записи в Паскале надобно использовать оператор READLN.

var r,s,p  : real;
begin
  Writeln ('Введите радиус искомой окружности');
  Readln (r);
  p:=2*3.14*r;
  s:=3.14*sqr (r);
  Writeln ('Длина окружности находится по формуле p=2r и одинакова ',p);
  Writeln ('Площадь круга находится по формуле S= r^2 и одинакова ',s);
end.