Вычислите значение переменной у после выполнения алгоритма.

Var x,y: integer;
Begin
x:=15;
y:=-10;
While x*y<0 do
Begin
x:=x-3;
y:=y+1
end;
writeln(y);
end.

1) 0

2) -5

3) -10

4) нет правильного ответа

графические примитивы  это заранее определенные элементы, которые можно поместить в  чертеж при одной команды. каждый графический примитив формируется на основании описания объекта.            примитивы  можно классифицировать:

односложные  и составные; плоские   и объемные (3d)

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

источник :  

Для того, чтобы последовательность была возрастающей, для каждого очередного элемента new и предыдущего old должно выполняться условие new > old. Любое нарушение данного условия приводит к тому, что последовательность не может быть возрастающей.

Program Sequence;

var old, new : real; 

f : boolean; 

begin
write('Введите x=');
readln(old);
write('Введите x=');
readln(new);
f:=true;
repeat if new<=old then f:=false;
old:=new;
write('Введите x=');
readln(new);
until new=0;
if f then writeln( 'Последовательность возрастающая')
else writeln( 'Последовательность не является возрастающей');
end.