program SharkCode;

Uses crt;
var
  n, i, minSeats, totalSeats, passengersOn, passengersOff: integer;
  a, b: array[1..1000] of integer;
begin

Clrscr;
  write('Nhap so diem dung cua xe dien: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Nhap so luong hanh khach xuong tai diem dung ', i, ': ');
    readln(a[i]);
    write('Nhap so luong hanh khach len tai diem dung ', i, ': ');
    readln(b[i]);
  end;
  minSeats := 0;
  totalSeats := 0;
  passengersOn := 0;
  passengersOff := 0;
  for i := 1 to n do
  begin
    passengersOff := passengersOff + a[i];
    passengersOn := passengersOn + b[i];
    totalSeats := passengersOn - passengersOff;
    if totalSeats < 0 then
    begin
      minSeats := minSeats + abs(totalSeats);
      totalSeats := 0;
    end;
  end;
  writeln('So ghe toi thieu can co: ', minSeats);
end.

Chương trình trên giả định rằng số ghế trống ban đầu là không giới hạn, Passengers on và off là khách đi lên và xuống

`\color{red}{\text{@hoangduy67}}`

var a:array[1..100005] of int64;
   i,x:longint;
   m,dem,g:int64;
   b:array[1..1000005] of int64;
begin
   readln(m);
   for i:=1 to m do read(a[i],b[i]);
   for i:=1 to m do
   begin
   g:=g-a[i]+b[i];
   if g>dem then dem:=g;
   end;
   write(dem);
   readln;
end.