Вычислить площадь кольца окруженного двумя окружностями с радиусом r1 и r2

sкольца=s1-s2 

sкольца=()

//pascal //1 var a, b, c: real; begin   write('введите a: '); readln(a);   write('введите b: '); readln(b);   write('введите c: '); readln(c);   if (a > b) and (a > c) then writeln('a - наибольшее число = ', a);   if (b > a) and (b > c) then writeln('b - наибольшее число = ', b);   if (c > a) and (c > b) then writeln('c - наибольшее число = ', c); end. //2 var n: integer; begin write('введите число: '); readln(n); if n mod 2 = 0 then writeln('четное') else writeln('не четное'); end.

1. var  a, b, c: integer; begin  write('введите первое число: ');   readln(a);   write('введите второе число: ');   readln(b);   write('введите третье число: ');     readln(c);         if (a > b) and (a > c) then    writeln(a);     if (b > a) and (b > c) then    writeln(b);           if (c > a) and (c > b) then    writeln(c); end. 2.var  a: integer; begin  write('введите число: ');   readln(a);   if (a mod 2)=0 then  writeln('число ', a, ' - чётное')      else    writeln('число ', a, ' - не чётное'); end.