mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
17 lines
197 B
ObjectPascal
17 lines
197 B
ObjectPascal
{$R+}
|
|
|
|
function d(a,b:string):Integer;
|
|
begin
|
|
d := Ord(a[1])-Ord(b[1]);
|
|
end;
|
|
|
|
var
|
|
c: SmallInt;
|
|
ch : char;
|
|
begin
|
|
ch:='A';
|
|
c := Byte(ch)-Byte('B');
|
|
WriteLn(c);
|
|
WriteLn(d('a','b'));
|
|
end.
|