1) Эта программа называется "Логомиры"
2) Что за координаты креста?
3) Скорее всего по стандарту в Декартовой системе координат (0;0)
44032*16/8 = 88064 б на секунду = 86 Кб
88064*60 = 5283840 байт на минуту ≈ 5Мб
5283840*80 = 422707200 байт на минуту ≈ 403Мб
var year,month,day,a,b,c,d,e,f,g: integer;
begin
readln(year);
a := year mod 4;
b := year mod 7;
c := year mod 19;
d := ( 19 * c + 15 ) mod 30;
e := ( 2 * a + 4 * b - d + 34 ) mod 7;
f := 3 + (d + e + 21) div 31;
g := ( d + e + 21 ) mod 31;
month := f;
day := g + 1;
writeln(day,' ',month);
end.
Как мне кажется, здесь зашифровано слово ПОЛЬЗОВАТЕЛЬ
"По Л Ь З О в А Те(Н)Ль"