mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 22:48:07 +02:00
19 lines
224 B
ObjectPascal
19 lines
224 B
ObjectPascal
procedure pr(d:single);overload;
|
|
begin
|
|
writeln('single');
|
|
end;
|
|
|
|
procedure pr(d:double);overload;
|
|
begin
|
|
writeln('double');
|
|
end;
|
|
|
|
procedure pr(d:currency);overload;
|
|
begin
|
|
writeln('currency');
|
|
end;
|
|
|
|
begin
|
|
pr(1.0);
|
|
end.
|