Составте программу вычисления произведения чисел в диапозоне от 1до 10 1*2*3*4**10

Program fac;     var n: integer; function fact(n: integer): integer; begin if n=1 then fact: =1             else fact: =fact(n-1)*n; end; begin write('vvedi chislo: '); // число 10 )) readln(n); n: =fact(n); writeln('otvet: ', n); read; end .

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.