Составить алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 9 единицам. Алгоритм:

сместиться в точку (6,6)
опустить перо
сместиться на вектор ( ,9)
сместиться на вектор ( ,0)
сместиться на вектор (0, )
сместиться на вектор (−9,0)

1) файл паскаля приложен.
2) код на c#
        static void Main(string[] args)        {            int a, b;            a = Convert.ToInt32(Console.ReadLine());            b = Convert.ToInt32(Console.ReadLine());            if (a > 2)            {                Console.WriteLine(a / 2);                Console.WriteLine(b - 1);            }        }
3) Код на vb
dim a as integer = 0
dim b as integer = 0
a = cint(console.readline())
b = cint(console.readline())
if a > 2 then
console.writeline( a / 2)
console.writeline(b - 1)
end if

var a: array [1..5] of integer;

i, j , count, sum_count: integer;

repeated : boolean;

begin

   for i := 1 to 5 do

   begin

       write('Введите ', i, '-e число: ');

       readln(a[i]);

   end;

   

   sum_count := 0;

   for i := 1 to 5 do

   begin

       repeated := false;

       for j := 1 to i - 1 do

       begin

           repeated := (a[i] = a[j]);

           if repeated then break;

       end;

       if repeated then continue;

       

       count := 1;

       for j:= i+1 to 5 do

           if (a[i]=a[j]) then

               inc(count);

       if count > 1 then

           sum_count += count;

   end;

   writeln(sum_count);

end.