mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 11:08:02 +02:00
15 lines
209 B
ObjectPascal
15 lines
209 B
ObjectPascal
var
|
|
d: Double;
|
|
c, ce: Currency;
|
|
begin
|
|
d := 1;
|
|
c := 2;
|
|
ce := 3;
|
|
c:=c + d;
|
|
writeln('c=', c);
|
|
if c <> ce then begin
|
|
writeln('Invalid currency value. Expected: ', ce);
|
|
halt(1);
|
|
end;
|
|
end.
|