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

Ввести с клавиатуры несколько дробных чисел, признак окончания ввода – число 1000.Нужно изменить программу так,чтобы она находила:

а) дробную часть чисел;

б) произведение чисел, меньших 22;

в) сумму чисел, которые попадают в промежуток [10, 50]. Заранее,спасибо большое!)))))

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.