10 lines
92 B
OpenEdge ABL
10 lines
92 B
OpenEdge ABL
|
program clash(output);
|
||
|
var
|
||
|
i: integer;
|
||
|
c: char;
|
||
|
begin
|
||
|
i := 1;
|
||
|
c := i;
|
||
|
write(c, i)
|
||
|
end.
|