Складіть блок схему алгоритму у якому потрібно задумати число та відняти від нього 1 якщо воно менше ніж 8 дод… ... ніж 8 додати до нього 15 якщо воно не менше ніж 8 але менше ніж 30 помножити його на 5 якщо воно не менше ніж 30.Виконайте складений алгоритм для чисел

A,b,c - стороны прямоугольного треугольника;
d - радиус описанной окружности около прям. треуг.
e - длинна окружности описанной около прямоуг. треугольника;

var a,b,c,d,e:Real;
begin
writeln ('Введите (через пробел) 2 катета прямоугольного треугольника: ');
readln (a,b); //вводим 2 катета
c:=SQRT((a*a)+(b*b)); //находим 3 сторону (гипотенузу)
d:=0.5*c; //радиус описанной окружности около прям. треуг
e:=2*3.14*d; //теперь находим длину окружности описанной около прям. треуг.
writeln ('Длина окружности описанной около прямоугольного треугольника = ',e);
end.

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

Вот программа по примитивной логике. Заводим доп.массив, переписываем в него четные эл-ты, сортируем его, отсортированные эл-ты вставляем назад в исходный массив.
var
   i, j, p: integer;
   a: array[1..20] of integer;
   b: array[1..10] of integer;
begin 
writeln('Исходный массив: ');
for i := 1 to 20 do
  begin
  a[i] := random(20) + 1;
  write(a[i]:3)
  end;     
for i := 1 to 20 do
    if i mod 2 = 0 then
       begin
       j := j + 1;
       b[j] := a[i]
       end;
writeln;
for i := 1 to 10 do
     for j := 1 to 10 do
        begin
        if b[i] > b[j] then
           begin
           p := b[i];
           b[i] := b[j];
           b[j] := p
           end
        end;
for i := 1  to 10 do a[i * 2] := b[i];
writeln('Преобразованный массив: ');
for i := 1 to 20 do write(a[i]:3)
end.