Напишите рекурсивную подпрограмму которая вычисляет сумму S

uses crt; function Rec (n: integer): real; beginif n<1 then exit; if n=1 then Rec: =0else if n=2 then Rec: =5/8else Rec: =Rec (n-1) /2+Rec (n-2)*0,75; end; var n: integer; beginclrscr; write ('n='); readln (n); write (Rec (n): 0:2); readlnend.