Постройте оси Х,Y и начертите цветом LightGreen графики функции Y=sinx,Y=cosx,Y=tgx по выбору пользователя — Pascal(Паскаль)

uses
  Graph, CRT;

const
  k = 100;

var
  D, R, i, state: integer;
  y: Real;

begin
  WriteLn('Vvedite');
  WriteLn('"1" dlya grafika Y = SIN X');
  WriteLn('"2" dlya grafika Y = COS X');
  WriteLn('"3" dlya grafika Y = TG X');
  D := Detect;
  ReadLn(state);
  InitGraph(D, R, '..\bgi');
  SetBkColor(Black);
  ClearDevice;
  SetColor(White);
  Line(3, 3, 3, 477);
  Line(3, 240, 637, 240);
  OutTextXY(5, 470, 'Y');
  OutTextXY(630, 245, 'X');
  SetColor(58);
  for i := 1 to 637 do
  begin
    case state of
      1:
        y := sin(i / k);
      2:
        y := cos(i / k);
      3:
        y := sin(i / k) / cos(i / k);
    else
      begin
        Write('Input INCORRECT');
        ReadLn;
        ReadLn;
        halt;
      end;
    end;
    y := -y * k;
    y := y + 240;
    putpixel(i + 3, round(y), 58);
  end;

  ReadLn;
  ReadLn;

end.