Составьте блок схему алгоритма и программу расположения трех чисел в порядке убывания

1) на pascal:   var  t,i,j: integer;   a: array[1..4]of integer;   begin  for i: =1 to 4 do  begin  write('vvedite ',i,'-i 4islo: ');   readln(a);   end;   for i: =2 to 4 do  for j: =4 downto i do  if a[j-1]> a[j] then  begin  t: =a[j-1];   a[j-1]: =a[j];   a[j]: =t;   end;   writeln('raspolagaem 4isla v poryadke vozrastaniya: ');   for i: =1 to 4 do  writeln(a);   readln;   end.  2) на с:   #include < stdio.h>   #include < conio.h>   void main(void){  int n,a,b,c,d;   printf("\nvvedite 4x-znachnoe chislo n: ");   scanf("%i", & n);   a=n/1000;   b=(n-a*1000)/100;   c=(n-a*1000-b*100)/10;   d=n-a*1000-b*100-c*10;   if (a+b==c+d) printf("true");   else printf("false");   getch();   };

1) var      a, b: integer; begin     readln(a, b);     if (a mod 2 = 0) and (b mod 2 = 0) then         writeln('оба четные')     else         writeln('нет'); end. 2) var      a, b: integer; begin     readln(a, b);     if (a mod 2 = 0) or (b mod 2 = 0) then         writeln('является')     else         writeln('нет'); end.

Const   n = 5;   var   arr: array [1..n] of integer;   i, max: integer; begin   for i : = 1 to n do   begin       write('a[', i, '] = ');       readln(arr[i]);   end;     max : = 1;   for i : = 1 to n do       if (max < arr[i]) and (arr[i] mod 5 = 0) then           max : = arr[i];     if max = 1 then       writeln('no')   else       writeln(max); end.