Компьютер выдает ошибку: нельзя преобразовать тип real к integer в строке c : = xfact(n)/ xfact(n - k)* xfact(k); исправить function xfact(o: integer): integer; var factorial : longint; i: integer; begin write('o = '); readln(o); factorial : = 1; for i: =2 to o do factorial : = factorial * i; end; var n,k,c: real; begin writeln('введите число n: '); readln(n); writeln('введите число k: '); readln(k); c : = xfact(n)/ xfact(n - k)* xfact(k); writeln('c = ',c); end.

Измените тип переменных n и k на integer:

function Xfact(o: integer): integer;
var
  factorial: longint;
  i: integer;
begin
  write('o = ');
  readln(o);
  factorial := 1;
  for i := 2 to o do
    factorial := factorial * i;
end;

var
  c: real;
  n,k:integer;
begin
  writeln('Введите число n: ');
  readln(n);
  writeln('Введите число k: ');
  readln(k);
  c := Xfact(n) / Xfact(n - k) * Xfact(k);
  writeln('C = ', c);
end.