История изменений

program new7e5year;
{$codepage UTF8}
uses cwstring, sysutils, math;
var
   r : UnicodeString = 'СНЕГОВИК ВОНЯЕТ ДЫМОМ';
   z : Integer = $7e5;
begin
   writeln(Copy(r, trunc(sin(degtorad(sqrt($1fa4)))), trunc(cos(log10(1)))),
           Copy(r, $470d div 2021, trunc(sin(degtorad($b1a62)))),
           Copy(r, 2020 div $3f2, 2 + trunc(cos(log10(sqrt(1919487.584))))),
           Copy(r, trunc(power($e8d4a52, 1/12)), $fca div 2021),
           Copy(r, $8e1a div 2021, $3e4af6 mod 2021),
           Copy(r, (2021 - 1904) div 13, trunc(cos(log10(1)))), //1904 - Начало Русско-японской войны
           z,
           Copy(r, (2020 - 1903) div 13, trunc(power(0, 0))), //1903 - первый пилотируемый полёт братьев Райт
           Copy(r, $1f94 div 2021, trunc(log10($3e52d9)/log10($7e5))),
           Copy(r, trunc(sqrt($121)), trunc(power(2021, 0))),
           Copy(r, $9de4 div 2021, trunc(power(18446744073709551616, 1/64))),
           #$21);
end.

program new7e5year;
{$codepage UTF8}
uses cwstring, sysutils, math;
var
   r : UnicodeString = 'СНЕГОВИК ВОНЯЕТ ДЫМОМ';
   z : Integer = $7e5;
begin
   writeln(Copy(r, trunc(sin(degtorad(sqrt($1fa4)))), trunc(cos(log10(1)))),
           Copy(r, $470d div 2021, trunc(sin(degtorad($b1a62)))),
           Copy(r, 2020 div $3f2, 2 + trunc(cos(log10(sqrt(1919487.584))))),
           Copy(r, trunc(power($e8d4a52, 1/12)), $fca div 2021),
           Copy(r, $8e1a div 2021, $3e4af6 mod 2021),
           Copy(r, (2021 - 1904) div 13, trunc(cos(log10(1)))), //1904 - Начало Русско-японской войны
           z,
           Copy(r, (2020 - 1903) div 13, trunc(power(0, 0))), //1903 - первый пилотируемый полёт братьев Райт
           Copy(r, $1f94 div 2021, trunc(log10($3e52d9)/log10($7e5))),
           Copy(r, trunc(sqrt($121)), trunc(power(2021, 0))),
           Copy(r, $9de4 div 2021, trunc(power(18446744073709551616, 1/64))),
           #$21
           );
end.