по информатике нужно сделать калькулятор . * Разработать программу «Калькулятор» со следующим функционалом:
Пользователь открывает программу, вводит два числа, нажимает знак действия и видит результат выбранного действия над введёнными числами.
Вводимые символы должны проверяться на допустимость (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, +, -).
Введённые значения должны проверяться на допустимость (при преобразовании в числа).
Необходима проверка деления на ноль.
Должна быть клавиша сброса (введённых ранее значений и результата)

Ну, площадь круга, допустим, вычисляется по формуле

S = pi*R^2.

Ну а кольца из большего круга вычитаем меньший, получим

Sk = pi*(R1^2 - R2^2)

Вот собственно и всё.

Программы тут и нет, так, пара операторов, например

Пи=3,141592653;

Ввод(R1,R2);

S = Пи*ABS(R1*R1-R2*R2);

Сообщить(R1,R2,S);

Замечание1. Модуль (ABS) обязателен, для снятия ограничений на порядок ввода радиусов. При таком подходе порядок(больший-меньший или наоборот) роли НЕ ИГРАЕТ!

Замечание2 Написано некоем псевдоязыке, с которого легко переведёшь на тот, которым владеешь.

program raf105;

const

 n = 9;

var

 a,b1,b2:array[1..n] of integer;

 k,i,j,c1,c2:integer;

begin

write('Введите число k: ');

readln(k);

writeln('Заполните массив:');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n do

begin

 if a[i] > k

   then begin

     c1:= c1 + 1;

     b1[c1]:= a[i];

   end;

 if a[i] < k

   then begin

     c2:= c2 + 1;

     b2[c2]:= a[i];

   end;

end;

for i:=1 to c1 do

 a[i]:=b1[i];

for i:=c1+1 to c2+c1 do

 a[i]:=b2[i-c1];

write('Вывод: ');

for i:=1 to n do

 write(a[i],' ');

end.