Написать на языке pascalabc решение следующей : найдите площадь кольца, ограниченного двумя окружностями. радиусы произвольные.

program Площадь кольца;

var A, B, C, S: real;

begin

writeln ('Радиус большего круга = ',A,' ');

readln (A);

writeln ('Радиус меньшего круга = ',B,' ');

readln (B);

C:=3,14 ;

writeln (' = ',C,' ');

S:=C*SQR(A)-C*SQR(B);

writeln ('S кольца = ',S,' ')

end.