（读入整数）请完善下面的程序，使得程序能够读入两个 long

var
  a, b : longint;
function readint : longint;
var
  num : longint;
    // 存储读取到的整数 
  negative : longint;
    // 负数标识 
  c : char;              // 存储当前读取到的字符 
begin
  num := 0;
  negative := 0;
  read(c);
  while ((c < '0') or (c > '9')) and (c <> '-') do
  1;
  if (c = '-') then
    negative := 1
  else
    2;
  read(c);
  while     3     do
  begin
    4;
    read(c);
  end;
  if negative = 1 then
    5;
  exit(num);
end;
begin
  a := readint( );
  b := readint( );
  writeln(a);
  writeln(b);
end.