Как написать программу с использованием циклов

var
  i: integer;
  x, s: real;
begin
  write('Enter x: ');
  readln(x);
  s := 0;
  for i := 1 to 10 do
    begin
      x := sin(x);
      s := s + x;
    end;
  write('The sum is ', s);
  readln;
end;