Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции?

function is_in(num:integer; dig:byte):boolean;
var res;
begin
 res := false;
 while num <> 0 do
 begin
  if dig = num mod 10 then
   res := true;
  num := num div 10;
 end;
 is_in := res;
end;

uses crt;
var n,i:integer;
sum:real;
 
begin
clrscr;
write('Vvedite ko-stvo -> ');
read(n);
sum:=0;
for i:=1 to n do
sum:=sum+1/(i+i*10);
write('OTVET -> ',sum:3:3);
readkey;
end.

uses crt;
var n,i,k,l,j:integer;
a:array [1..30] of integer;
 
begin
clrscr;
write('Vvedite ko-stvo -> ');
read(n);
for i:=1 to n do
read(a[i]);
k:=0;
l:=0;
j:=0;
for i:=1 to n do
if a[i]>0 then inc(k) else
if a[i]<0 then inc(l) else
inc(j);
writeln('kol-stvo polojitelnih = ',k);
writeln('kol-stvo otricatelnih = ',l);
writeln('kol-stvo 0 = ',j);
readkey;
end.

uses crt;
var b,z,m,ben:float;
begin
clrscr;
writeln('Сколько бензина в баке = ');
readln(b);
writeln('Какое растояние к заправке? = ');
readln(z);
writeln('Сколько литров бензина берет ваша машина на 100км= ');
readln(m);
ben:=(z*m)/100;
if b>=bez then writeln('Хватит') else writeln('не хватит');
end.