14 lines
241 B
ObjectPascal
14 lines
241 B
ObjectPascal
Program pr1;
|
|
var r1, r2: integer;
|
|
s1, s2: real;
|
|
begin
|
|
writeln('Ðàäèóñ 1');
|
|
readln(r1);
|
|
writeln('Ðàäèóñ 2');
|
|
readln(r2);
|
|
s1:=Pi*r1*r1;
|
|
writeln('Ïëîùàäü 1 = ', s1);
|
|
s2:=Pi*r2*r2;
|
|
writeln('Ïëîùàäü 2 = ', s2);
|
|
writeln('Êîëüöî = ', s2 - s1);
|
|
end. |