blob: 08503076dcb15d7dc40cc27ee41045388a6b96c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
uses
Math;
var
l: longint;
c: cardinal;
i: int64;
q: qword;
s: single;
d: double;
begin
l:=-12345;
c:=56789;
i:=-56789;
q:=12345;
s:=l;
if s<>-12345 then
halt(1);
s:=c;
if s<>56789 then
halt(2);
s:=i;
if s<>-56789 then
halt(3);
s:=q;
if s<>12345 then
halt(4);
d:=l;
if d<>-12345 then
halt(5);
d:=c;
if d<>56789 then
halt(6);
d:=i;
if d<>-56789 then
halt(7);
d:=q;
if d<>12345 then
halt(8);
end.
|
