Составить программу для решения следующей : найти площадь кольца, если заданы радиус внешней окружности и радиус внутренней окружности.

Program r_1; uses crt; const q=pi; var a,b,c: real; begin write('r='); readln(a); write('r='); readln(b); c: =q*(a*a-b*b); writeln('s=',c: 5: 2); readln; end.

// pascalabc.net var  gl: ='кпстфхцчшщ';   zv: ='бвгджзлмнр';   zi: array [1..2,1..10] of integer;   //для отметок о выполнении условий для звонких  s: string;   i,n: integer;   chet: boolean; //признак четности слова begin chet: =false; writeln('введите строку из слов, разделенные пробелом'); readln(s); for i: =1 to length(s) do   begin   n: =pos(s[i],zv);   if (chet=false) then       begin       delete(gl,pos(s[i],gl),1);       if n> 0 then zi[1,n]: =1   //первый признак выполнен       end       else if n> 0 then zi[2,n]: =-1; //второй признак не выполнен   if s[i]=' ' then chet: =not(chet);   end; writeln('глухие согласные, которых нет в нечетных словах: ',gl);   write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: ');   for i: =1 to 10 do   if zi[1,i]+zi[2,i]=1 then write(zv[i]); end.