Найти в одной программе сумму и произведение двух чисел

ответ:

var

  a, b: integer;

begin

    readln(a);

    readln(b);

    writeln('сумма: '+ (a+b));

    writeln('произведение: '+ (a*b));

end;

var

  n, n1, n2, n3: integer;

begin

    write ('введите трехзначное число: ');

    readln (n);

    if not ((n > = 100) and (n < = 999)) then begin

      writeln ('число не является трехзначным! ');

      exit;

    end;

    n1 : = n div 100;

    n2 : = (n div 10) mod 10;

    n3 : = n mod 10;

    writeln ('среднее арифметическое цифр = ' + floattostr ((n1 + n2 + n3) / 3));

end;

const n = 100;

var a: array [1..n] of integer;  

        i, count, sum, p: integer;

        arith: real;

        mult: biginteger;

       

begin

        randomize;

        for i: = 1 to n do a[i]: = random(1, 1000);

       

        sum: = 0;

       

        for i: = 1 to n do begin

            if a[i] mod 2 = 0 then begin

                inc(count);

                sum: = sum + a[i];

                arith: = sum / count;

            end;

            if a[i] mod 2 = 0 then begin

                p: = a[i] * a[i];

                if mult = 0 then mult: = p else mult: = mult * p;

                // произведение капец длинное

                if a[i] mod 3 = 0 then a[i]: = i * i;

            end

        end;

       

      writeln(arith);

      writeln(mult);

end.