mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
24 lines
378 B
ObjectPascal
24 lines
378 B
ObjectPascal
{$mode delphi}
|
|
program test;
|
|
|
|
const
|
|
factor : double = 1.0;
|
|
|
|
|
|
function CheckLongint(count,wcount:longint):double;
|
|
begin
|
|
result:=(count+wcount)*factor;
|
|
end;
|
|
|
|
|
|
function CheckCardinal(count,wcount:cardinal):double;
|
|
begin
|
|
result:=(count+wcount)*factor;
|
|
end;
|
|
|
|
|
|
begin
|
|
writeln('LONGINT: ',CheckLongint(3,1));
|
|
writeln('CARDINAL: ',CheckCardinal(3,1));
|
|
end.
|