Pascal! написать программу, которая выводит на экран окружность, радиус которой «растет» из центра измените программу так, что бы окружность сначала уменьшалась в радиусе, а потом увеличивалась

Uses crt,graph; var device,mode: integer;     i,x,y,s: integer; beginclrscr;         device: =0;         initgraph(device,mode,'');         s: =100;         x: =320;         y: =240;         for i: =1 to 9 do            begin                setlinestyle(0,0,thickwidth);                 circle(x,y,s);                 delay(200);                 setcolor(black);                 circle(x,y,s);                 s: =s-10;                 setcolor(white);             end;             for i: =1 to 9 do            begin                setlinestyle(0,0,thickwidth);                 circle(x,y,s);                 delay(200);                 setcolor(black);                 circle(x,y,s);                 s: =s+10;                 setcolor(white);             end;           circle(x,y,s); readln; end.

194-11000010 в двоичную 194- с2 в шестнадцатиричную 194- 302 в восьмиричной 194 был в десятичной с/с