mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
23 lines
379 B
ObjectPascal
23 lines
379 B
ObjectPascal
program tw26230;
|
|
|
|
const
|
|
C1 = 86400000000; //MCS in a day
|
|
|
|
var
|
|
AInput,
|
|
Product : Int64;
|
|
|
|
begin
|
|
AInput := 1;
|
|
//asm int3 end; //debug trap; `disassemble`
|
|
Product := AInput * C1;
|
|
WriteLn(AInput, ' * ', C1, ' = ', Product);
|
|
if Product <> 86400000000 then
|
|
begin
|
|
Writeln('Error!');
|
|
Halt(1);
|
|
end
|
|
else
|
|
Writeln('Ok');
|
|
end.
|