Здравствуйте. Помогите, пожалуйста, решить задачи в Паскале

Program SumProizDrob; Uses crt; var n: integer; c,s,pr,dr: real; begin clrscr; write ('Input Numbers: '); n: =1; s: =0; pr: =1; dr: =0; repeat readln (c); dr: =frac (c); writeln ('drobnaya chast: ',dr: 4:4); n: =n+1; if (c>9) and (c<51) then s: =s+c; if (c<22) then pr: =c*pr; until (c=1000); writeln; writeln ('Summa=',s: 4:4); writeln ('Proizved=',pr: 4:4); readkey; end.