Вывести на экран значения функции в виде таблицы.y=2cos(x) — Pascal(Паскаль)

uses crt;
var x,y,dx,a,b:real;
 
begin
 clrscr;
 write('Начальное и конечное значение (A>B)-> ');
 readln(a,b);
 write('Шаг (>0) -> ');
 readln(dx);
 x:=a;
 writeln('==X======Y==')
 while x<=b do
 begin
  y:=2*сos(x);
  writeln(x:2:3,' ',y:2:3);
  x:=x+dx;
 end;
 readln;
end.