Question

программа паскаль! очень надо! 

Найдите площадь кольца, внутренний радиус которого равен r , а вписанного R.

Answer 1

program kolco;
var
s,s1,s2:real;
r1,r2:integer;
begin
writeln('введите r');
readln(r1);
writeln('введите R');
readln(r2);
s1:=pi*sqr(r1);
s2:=pi*sqr(r2);
S:=s2-s1;
writeln('площадь кольца равна:',S:2:3);
readln;
end.