C :

#include <stdio.h>
int main()
{
  char s1[80],s2[80];
  int cmp=0, i;
  gets(s1);
  gets(s2);
  for(i=0; i<80&&s1[i]!=0; i++)
  {
    if(s1[i]-s2[i] != 0)
    {
      cmp = s1[i] - s2[i];
      break;
    }
  }
  if(s1[i]==0)
    cmp = 0-s2[i];
  printf("%d\n", cmp);
  return 0;
}

C++ :

#include<stdio.h>
int main()
{    
  char str1[80],str2[80];    
  int i=0,j=0,a=0,b=0;  
  gets(str1);  
  gets(str2);  
  while(str1[i]!='\0') 
    a+=str1[i++];  
  while(str2[j]!='\0') 
    b+=str2[j++];   
  printf("%d",a-b);
} 

Pascal :

uses math;
var
s1,s2:ansistring;
i,len:longint;
begin
readln(s1);
readln(s2);
if s1=s2 then begin write(0);halt; end;
len:=max(length(s1),length(s2));
for i:=1 to len do
if s1[i]<>s2[i] then begin writeln(ord(s1[i])-ord(s2[i]));halt; end;end.