Розв’язок задачі з Абрамова №17

Всі умови | Умова: Знайти площу кільця, внутрішній радіус якого дорівнює 20, а зовнішній - заданому числу r (r> 20). (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №17)

program pr17;
const
	r1 = 20;
var
	r2, s1, s2, s : real;
begin
 	readln(r2);
 	s1 := pi * sqr(r1);
 	s2 := pi * sqr(r2);
 	s := s2 - s1;
 	writeln(s:5:2);
 	readln;
end.