=) 1-ое )составить алгоритм вывода среднего(не арифметического) из трёх чисел в виде блок-схемы. входные данные: три числа выходные данные: среднее число 2-ое ) на вход подаётся число. нужно вывести числа от данного до 10. если оно изначально больше 10, завершить программу.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! type   fraction=class     private     class function gcd(a,b: biginteger): biginteger;   begin       while b< > 0 do (a,b): =(b,a mod b);       result: =a       end;     public     numerator: biginteger;   denominator: biginteger;     constructor create(num: biginteger: =0; denom: biginteger: =1);       begin       var n: =gcd(num,denom);       numerator: =num div n;       denominator: =denom div n       end;     class function operator +(a,b: fraction): fraction;       begin       var n: =gcd(a.denominator,b.denominator);       result: =new fraction(a.numerator*(b.denominator div n)+               b.numerator*(a.denominator div n),a.denominator div n*b.denominator);       end;   end;         function print(self: fraction; s: string: =' '): fraction; extensionmethod;   begin       result: =self;       if self.denominator=1 then write(self.numerator,s)       else write(self.numerator,'/',self.denominator,s)   end;     function read: fraction;   begin       var s: =readlnstring('введите через пробел числитель и знаменатель: ');       var w: =s.towords;       result: =new fraction(biginteger.parse(w[0]),biginteger.parse(w[1]))   end;   begin   var a: =read;   var b: =read;   (a+b).print end. примеры введите через пробел числитель и знаменатель: 1 2 введите через пробел числитель и знаменатель: 5 130 7/13 введите через пробел числитель и знаменатель: 132 65 введите через пробел числитель и знаменатель: 1325 345 26333/4485 введите через пробел числитель и знаменатель: 1231234450435679092 234535650234953469825 введите через пробел числитель и знаменатель: 234346623432456207645 2345893524353652 2617268599782944014855731813763449145529/26199793481726210718128032276692900

Program fire; uses crt; var a,b,c,d,e,i,kol: integer; beginkol: =0; a: =15; b: =15; c: =15; d: =15; randomize; for i: =1 to 60 do    begin    e: =abs(random(5)-1);     if e=1 then a: =a-1;     if e=2 then b: =b-1;       if e=3 then c: =c-1;     if e=4 then d: =d-1;     if (a=0) or (b=0) or (c=0) or (d=0) then break;     kol: =kol+1;     end; writeln ('kolichestvo sgorevshih spichek= ',kol); end.