63 Пример 4 program task4; var n : integer; { исходное значение } function fact(i:integer):integer; begin if (i=1) or (i=0) then fact:=1 else fact:=fact(i-1)*i end; begin write('Введите нужное значение n '); readln(n); writeln('Факториал ', n,' равен
{}