На языке паскаль! определить принадлежит ли точка a(x) лежащая на координатной прямой отрезку [-3, 3].

Program primer; uses crt; var x: real; begin clrscr;           write('введите координату x = ');           readln(x);                     if (x> =-3) and (x< =3) then           writeln('принадлежит')           else           writeln('не принадлежит'); end.          

Uses graphabc; const   w = 600;   r = 300; dl = 40; sl = 250; ml = 200; hl = 150; var   h,m,s: integer;   i: integer;   x,y: integer;   g: real;   begin   setwindowsize(w,w);   read(h,m,s);   h : = h mod 12;   setpenwidth(2);   circle(w div 2, w div 2, r);   for i : = 0 to 59 do     begin     g : = (i*360/60 - 90) * pi/180;     if i mod 12 = 0 then       begin       x : = w div 2 + round((r - dl) * cos(g));       y : = w div 2 + round((r - dl) * sin(g));       end     else       begin       x : = w div 2 + round((r - dl div 3) * cos(g));       y : = w div 2 + round((r - dl div 3) * sin(g));       end;     line(x,y,w div 2 + round(r*cos( div 2 + round(r*sin(     end;   setbrushcolor(clwhite);     while true do     begin     setpencolor(clwhite);     circle(w div 2, w div 2, sl);     setpencolor(clblack);         setpenwidth(1);     g : = (6*s - 90) * pi/180;     x : = w div 2 + round(sl * cos(g));     y : = w div 2 + round(sl * sin(g));     line(w div 2, w div 2, x, y);         setpenwidth(2);     g : = ((60*m + s)/10 - 90) * pi/180;     x : = w div 2 + round(ml * cos(g));     y : = w div 2 + round(ml * sin(g));     line(w div 2, w div 2, x, y);     setpenwidth(3);     g : = (360*(60*60*h + 60*m + s)/12/60/60 - 90) * pi/180;     x : = w div 2 + round(hl * cos(g));     y : = w div 2 + round(hl * sin(g));     line(w div 2, w div 2, x, y);         s : = s + 1;     if s = 60 then       begin       m : = m + 1;       s : = 0;       end;     if m = 60 then       begin       h : = (h + 1) mod 12;       m : = 0       end;     sleep(1000)     end; end.

Var a: longint; begin readln(a); k: =a mod 3; if k=0 then writeln('число делиться на 3') else writeln('число не делиться на 3'); k: =a mod 5; if k=0 then writeln('число делиться на 5') else writeln('число не делиться на 5'); k: =a mod 9; if k=0 then writeln('число делиться на 9') else writeln('число не делиться на 9'); k: =a mod 10; if k=0 then writeln('число делиться на 10') else writeln('число не делиться на 10'); k: =a mod 11; if k=0 then writeln('число делиться на 11') else writeln('число не делиться на 11'); end.