Сделать как линейный алгоритм.14. Составите программу для вычисления площадь поверхности шара (S = π D2).

program xxx;

var n, c, d, e, k : integer;

begin

  wtite ('введите 3-х значное число n =');

  readln (n);

  c : = n div 100;

  d : = (n div 10) mod 10;

  e : = n mod 10;

  k: = 100*e + 10*d + c;

  if n = k then write ('палиндром') else write('не палиндром')

end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

закодированный текст: byck is my dog.

(телефон) поверчу волшебный круг,- и меня услышит друг.  (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это  )