Найти площадь кольца, внутренний радиус которого равен 20, а внешний -заданному числу r (r > 20). паскал

Var   r,s:real;begin  writeln('r=?, r>20 ');  readln(r);  s:=3.14159265359*(r*r-400.0);   writeln('s=', s);end.

Но проверку r>20 не делал, просто попросил словами.