Pascal Подпрограммы

[Rыся]

Pascal Подпрограммы.
Привести выражение к несократимой обыкновенной дроби : 1/2+2/3+...+9/10

[Z1000000]

program AAA;
const N = 10;
var
 i : Integer;
 Chis,Znam,CurNOD : Integer;

function NOD(x,y:Integer):Integer;
 begin
  if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
 end;

begin
Chis := 0;
Znam := 1;
for i := 1 to N-1 do
 begin
 Chis := Chis * (i+1) + i * Znam;
 Znam := Znam * (i+1);
 CurNOD := NOD (Chis,Znam);
 if CurNOD <> 1 then
  begin
  Chis := Chis div CurNOD;
  Znam := Znam div CurNOD;
  end;
 writeln ( Chis,' ',Znam);
 end;
end.