Паскаль. Вычисление суммы ряда в цикле. переделать с процедурами.

[Дашуля_18]

сделала так, но нужно с подпрограммами..подскажите

uses crt;
var x,dx,t,s:real;
    i:integer;
begin
dx:=0.3;
x:=3;
while x<=4 do
 begin
  s:=0;
  t:=1;
  for i:=1 to 3 do
   begin
    t:=t*x/i;
    s:=s+t;
   end;
  writeln('x=',x:0:1,'  S=',s:0:2);
  x:=x+dx;
 end;
end.