1 var
2 r1,r2,s: real;
3 begin
4 write('Введите внешний радиус: ');
4 readln(r1);
6 repeat
7 write('Введите внутренний радиус: ');
8 readln(r2);
9 until r1>r2;
10 writeln('Площадь кольца = ',pi*(r1*r1-r2*r2):0:3);
11 readln;
12 end.
1 var
2 r1,r2,s: real;
3 begin
4 write('Введите внешний радиус: ');
4 readln(r1);
6 repeat
7 write('Введите внутренний радиус: ');
8 readln(r2);
9 until r1>r2;
10 writeln('Площадь кольца = ',pi*(r1*r1-r2*r2):0:3);
11 readln;
12 end.