1 Написать процедуру вычисления среднего арифметического двух чисел

1) Тут в смысле надо тебе интеграл найти? Если да, то Program Pr2; uses crt; procedure arifm (a,b: integer; var s: real); begin s: =(a+b) /2; end; procedure proiz (var a,b,c: integer); var i,m1,m2: integer; begin m1: =1; m2: =1; for i: =1 to a do m1: =m1*i; for i: =1 to b do m2: =m2*i; if m1>m2 then c: =m1 else c: =m2; end; var a,b,c: integer; s: real; Beginclrscr; readln (a,b); arifm (a,b,s); writeln (s); proiz (a,b,c); writeln (c); end. 2) Program Pr1; uses crt; procedure arifm (var a,b: integer; s: real); begin s: =(a+b) /2; writeln (s: 8:3); end; var a,b: integer; s: real; Beginclrscr; readln (a,b); arifm (a,b,s); end.