задача на цикл с условием . сделайте пожалуйста

[LIL_VAdiK]

вывести на экран в виде таблицы n-значений sin(x) и cos(x), где 0<x<пи/2

[Sazary]

uses crt;
const L=0; R=pi/2;
var
x,y,g,h : real;
n : integer;
begin
clrscr;
write('Enter n:');
readln(n);
writeln('   x   |   sin(x)  |   cos(x)   ');
h := abs((R-L)/n);
x := L;
while x<=R do
  begin
  y := sin(x);
  g := cos(x);
  writeln(' ',x:5:2,' | ',y:9:6,' | ',g:9:6);
  x := x + h;
  end;

readln;
end.