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

Алгоритм:

переведи в точку (5,5)
опусти перо
сдвинь на вектор (__
,8)
сдвинь на вектор (__
,0)
сдвинь на вектор (0,__
)
сдвинь на вектор (−8,0)

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

var i,s,k: integer;

begin

for i: =-4 to -15 do begin

      inc(s,i); inc(k)

end;

write('ср арифм = ',s/k)

end.

1) в десятичной: 15408324071457

    в шестнадцатиричной: e0387aed021

2) в десятичной: 1288618240

    в шестнадцатиричной: 4ccec100