Дана длинна окружности. найти площадь круга, ограниченного этой окружностью. в качестве значения pi использовать 3, 14. c#​

program raf105;

var

 s,s1,s2: string;

 slov,numb,i,j,l: integer;

begin

writeln('Введите строку:');

readln(s);

s:= lowercase(s);

s1:= '';

s2:= '1234567890';

while j<>-1 do

begin

 j+= 1;

 l+= 1;

 for i:=1 to length(s1) do

   if (s[j] = s1[i]) and (slov = 0)

     then slov+= 1

     else if (i<=length(s2)) and (s[j] = s2[i])

     then numb+=1;

 if s[j+1] = ' '

   then j:= -1;

end;

for i:=l+1 to length(s) do

begin

 if s[i] = ' '

   then

   begin

     for j:=1 to length(s1) do

       if s[i+1] = s1[j]

         then slov+= 1;

   end

   else

   begin

     for j:=1 to length(s2) do

       if s[i] = s2[j]

         then numb+=1;

   end;;

end;

writeln;

writeln('В строке:');

writeln(slov,' сл.');

writeln(numb,' циф.');

end.

Язык PascalABC

1 задача.
128 * 64 = 2^7 * 2^6 = 2^13 - символов на одной странице.
16 бит = 2 байта - вес одного символа.
2 * 2^13 = 2^14 байт - вес всех символов на одной странице.
16 Кбайт = 16 * 1024 байт = 2^4 * 2^10 байт = 2^14 байт - вес статьи.
2^14 / 2^14 = 1 - количество страниц в статье
ответ: 1.

2 задача.
96 * 32 = 3072 - символов на одной странице.
8 * 3072 = 24576 бит - вес всех символов на одной странице.
3 Мбайта = 3 * 2^23 бит - вес романа.
(3 * 2^23) / 24576 = 1024 - количество страниц в романе.
ответ: 1024.