Сместиться в точку (1,1) опустить перо сместиться в точку (3,4)Что будет нарисовано после выполнения Чертежником данного алгоритма? Чертежник находится в точке (0;0) и его перо поднято. Результатом выполнения, какой последовательности команд Чертежником будет отрезок, от точки (1;1) до точки (3;4)​

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=-5.0;
  Writeln('  x       x*x');
  repeat
    Writeln(x:4:1,x*x:10:2);
    x+=0.5
  until x>5
end.

Результат
  x       x*x
-5.0     25.00
-4.5     20.25
-4.0     16.00
-3.5     12.25
-3.0      9.00
-2.5      6.25
-2.0      4.00
-1.5      2.25
-1.0      1.00
-0.5      0.25
 0.0      0.00
 0.5      0.25
 1.0      1.00
 1.5      2.25
 2.0      4.00
 2.5      6.25
 3.0      9.00
 3.5     12.25
 4.0     16.00
 4.5     20.25
 5.0     25.00

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(12,0,50); a.Println;
  var m:=a.Average;
  Write('Элементы, меньшие среднего значения: ');
  Writeln('Таких элементов ',a.Where(x->x<m).Println.Count)
end.

Пример
34 12 5 35 29 15 23 22 41 27 12 36
Элементы, меньшие среднего значения: 12 5 15 23 22 12
Таких элементов 6

begin
  var a:=ArrRandom(13,0,100); a.Println;
  Write('Элементы, меньшие 50: ');
  Writeln('Таких элементов ',a.Where(x->x<50).Println.Count)
end.

Пример
25 17 68 71 27 37 83 32 63 87 29 12 34
Элементы, меньшие 50: 25 17 27 37 32 29 12 34
Таких элементов 8