Найти и исправить ошибки в программе.

program sochet; var n,k : integer; a1,a2,a3,c : lohgint;
Function factorial(n:integer):longint;
var i: integer; rez : longint; begin
rez:=1; for i:=1 to n do rez:=rez*i; factorial:=rez; end; begin
writeln(‘ ввод n и k :’); readln(n,k); a1:=factorial(n); { вычисление n!} a2:=factorial(k); { вычисление k!} a3:=factorial(n-k); {вычисление (n-k)!} c:=a1 div (a2*a3); { результат} writeln(‘результат=’,c) ; end.​

112303    3   24.04.2020 07:32    3