[Помогите!] Помогите написать програмку (линейный аглоритмы)

[louta]

Найти площадь кольца внутренний радиус которого равен R1 а внешний радиус равен R2(R1<R2).
В качестве значения Pi использовать 3.14
Помогите плиз!

[VeTaL_UA]

var
i,j,p,r:real;
begin
writeln('Enter R1');
readln(i);
writeln('Enter R2');
readln(j);
p:=3.14;
r:=(p*sqr(i))-(p*sqr(j));
write('S=');
write(r);
end.