Укажите условия правельно зиписанные на языке паскаль x> 0 5> y c=< 5

x> 0; 5> y - правильно записанные условия

program babo4ka;

uses crt,graphABC;

begin

setwindowsize(600,600);

line(263,47,220,5);

line(300,47,340,5);

setbrushcolor(clblack);

circle(283,70,30);

setbrushcolor(clyellow);

circle(198,180,65);

circle(371,180,65);

circle(159,340,100);

circle(410,340,100);

setbrushcolor(clred);

ellipse(180,145,240,220);

ellipse(330,145,390,220);

setbrushcolor(clbrown);

ellipse(260,100,310,500);

setbrushcolor(clblue);

ellipse(90,270,140,333);

ellipse(430,270,480,333);

setbrushcolor(clgreen);

ellipse(155,320,205,385);

ellipse(363,320,413,385);

end.

Объяснение:

Var   i,n,s: byte; //здесь мы описываем переменные i- флаг, n - наше число n, s- переменная "деления" label l1; // здесь мы  begin       l1: i: =0;   //установка метки на начало программы и установка флага на первоначальное значение - нет       repeat //проверка n на подлинность       if i=1 then       write('не верный ввод данных! повторите ввод: ')        else       write('введите номер n: '); // условие при котором в первый раз выводится предложение где нас просят ввести n, а если же мы её ввели не правильно выводится ошибка и опять нас просят ввести n так продолжается пока мы не введем правильный n       readln(n);       i: =1;   // установка флага -  да       untill    (n> =1) and (n< 100); // ограничения n       writeln('ваше множество: '); // вывод множества;       for i: =n to 99 do  // из условия следует что числа будут в диапазоне от 1 до 99 т.к они натуральные и двухзначные        begin           s: =i mod 11;   //условие при котором цифры повторяются    т.е. делятся на 11           if (s< > 0) then write(i,';   '); // проверка условия выше;       end;       writeln;       write('повторить программу? (1-да, 0-нет)-'); // предложение о том сделать ли  еще раз программу       read(i);       if (i=1) then goto l1; // опять же установка флага и переход к метке l1; если же условие не выполняется,  то конец программы end.