1

Написать процедуру вычисления среднего арифметического двух чисел. Числа и результат передаются в качестве параметров
, в каком из двух введенных с клавиатуры целых чисел произведение цифр больше. Для подсчета произведения цифр использовать процедуру.

2 

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

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.