Составить программу вычисления площади круга и длину окружности величину радиуса вводить с клавиутуры ,выход из программы при нулевом радиусе

С какой точностью надо вычислить площадь и длину круга? Беру 3 знака после запятой.
S - площадь круга
C - длина окружности
R - радиус окружности
Язык програмирования: Паскаль
var
S,C,R:real;
begin
read(R);
while R>0 do
begin
S:=3.14*R*R;
c:=2*3.14* R;
writeln('S = ',S:7:3,'C = ',C:7:3)
read(R);
end;
end.