Символьные строки. В любой введенной символьной строке заменить цифру “1” на цифру “2”. Вывести новую символьную строку.
Написать текст программы на языке Паскаль.

Насколько я понял нужно не всю дату, а только 2006 год написать.
Вот алгоритм, который это делает:

использовать Робот
алг
нач

|---2---
закрасить
вверх
закрасить
вверх
закрасить
вверх
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вниз
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

|---0---
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

|---0---
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

|---6---
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вверх
закрасить
вправо
закрасить
вправо
закрасить
вниз
вниз
закрасить
влево
закрасить
вправо
вниз
закрасить
вниз
закрасить
влево
закрасить
вправо
вправо
вправо

кон

Uses graphabc;
 const
  W = 600;
  H = 600;

 function F(x: real): real;
begin
  F := sqr(x);
end;

 var
  x0, y0, x, y, xLeft, yLeft, xRight, yRight: integer;
  a, b, fmin, fmax, x1, y1, mx, my: real;
 begin

  window.Init(0, 0, 800, 500, clwhite);
  window.IsFixedSize := true;
  xRight := 590;
  yRight := 590;
  a := -15;
  b := 6;
  fmin := -10;
  fmax := 20;
  mx := (xRight - xLeft) / (b - a);
  my := (yRight - yLeft) / (fmax - fmin);
   x0 := 380;
  y0 := 490;
  x1 := a;
   while x1 <= b do
  begin
     y1 := F(x1);
     x := x0 + round(x1 * mx);
     y := y0 - round(y1 * my);
     if (y >= 10) and (y <= 590) then SetPixel(x, y, clblack);
     x1 := x1 + 0.001 ;
  end;
end.