Синформатикой мне надо придумать чертежник по информатики надо: рисунок и описание типа опустить перо сдвинь на вектор ( 0: 1 ) и т.п

Смотрится красиво использовать робот алг  нач цел а, б вниз вниз вправо вправо нц для б от 1 до 4 фигура вверх вверх нц для а от 1 до 4 если справа свободно то вправо иначе стоп все кц фигура вниз вниз вниз вниз фигура нц для а от 1 до 4 если справа свободно то вправо иначе стоп все кц вверх вверх кц кон алг фигура нач закрасить вниз вниз закрасить влево вверх закрасить вверх влево закрасить вниз вниз закрасить вверх вверх вправо вправо кон

Описание: использовать чертежник алг нач сместиться на вектор(4,4) опустить перо сместиться на вектор(4,0) сместиться на вектор(0,4) сместиться на вектор(-4,0) сместиться на вектор(0,-4) сместиться на вектор(2,0) сместиться на вектор(2,2) сместиться на вектор(-2,2) сместиться на вектор(-2,-2) сместиться на вектор(2,-2) сместиться на вектор(-1,1) сместиться на вектор(2,0) сместиться на вектор(0,2) сместиться на вектор(-2,0) сместиться на вектор(0,-2) сместиться на вектор(1,0) сместиться на вектор(1,1) сместиться на вектор(-1,1) сместиться на вектор(-1,-1) сместиться на вектор(1,-1) конрисунок увидите сами при выполнении программы

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.