Один из возможных вариантов (если не затрагивать глубоко эти системы), дан во вложении.
Измените тип переменных 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.
15 4
3 3
0|75 *4
3|00
15,75 в 10 сс = 33,3 в 4-ной сс
var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>