Найти площадь кольца по заданным внешнему и внутреннему радиусам — Pascal(Паскаль)

program inal;
uses crt;
var
 sx,sy,s,xrad,yrad:real;
begin
clrscr;
write('vvedite vneshny radius');
readln(xrad);
write('vvedite vnuyreny radius');
readln(yrad);
sx:=pi*xrad*xrad;
sy:=pi*yrad*yrad;
s:=sx-Sy;
write('ploshad kolca=',s);
readkey;
end.