Напишите программу, которая вводит последовательность целых чисел, заканчивающихся нулем, и определяет, верно ли, что знаки элементов этой последовательности чередуются

Отдел +; использует вывод из "", приём; пер   число: цел;   полож, черед: ключ; указ   черед : = вкл;   число : = приём.число();   полож : = число > 0;   пока число # 0 вып     вывод.цепь("^");     если (полож и  число > 0) или (не полож и число < 0)  то       черед : = откл     кон;       число : = приём.число();       полож : = число > 0   кон;   если черед то вывод.цепь("чередуются.") кон кон .

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

в си:

# include < stdio.h> # include < conio.h> void main ()  {

    clrscr();

    int x,y,c,k;

    printf("vvedite x \n");  

    scanf("%d",& x);

    printf("vvedite y \n");  

    scanf("%d",& y);

    printf("vvedite c \n");  

    scanf("%d",& c);

    k=x+(y/(2*c));

    printf("otvet: %d \n",k);

    getch();

  }