Задача должна быть решена на языке Паскаль

// PascalABC.NET

uses System.Globalization;

begin

 CultureInfo.CurrentCulture := new CultureInfo('ru-RU');

 var t:= DateTime.Parse('05.05.2012 17:05:05');

 t := t.AddDays(500);

 t := t.AddHours(50);

 t := t.AddMinutes(50);

 t := t.AddSeconds(50);

 Print(t)

end.

первую фигуру мы можем раскрасить в 6 цветов, вторую - в 5, третью- в 4, и т.д. а первую - в 3 цвета

6*5*4*3=360

ответ 360 способов

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.