Исправление saahriktu, (текущая версия) :
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.
Исходная версия saahriktu, :
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.