Var x, y, i: Real;
begin
     i := 1;
     write('x: ');
     while (i <= 2.1) do
     begin
          write(i:4:2, '  ');
          i := i + 0.1;
     end;
     i := 1;
     writeln();
     write('y: ');
     while (i <= 2.1) do
     begin
          write(sin(i/2)/cos(i/2) + 2 * cos(i):4:2, '  ');
          i := i + 0.1;
     end;
     writeln();
end.

Вот так, только числа округляются, чтобы влазили:)