Program abc;

var
  a, b, c, d: real;

begin
  write('Расстояние? ');
  readln(a);
  write('Количество бензина в баке? ');
  readln(b);
  write('Расход бензина на 1 км? ');
  readln(c);
  d := a * c; {расход * расстояние = кол-во бензина требуется}
  if d > b  {если трубемого бензина > ,бензина в баке }
    then writeln('Бензина в баке не достаточно')
  else
    writeln('Бензина в баке достаточно');
end.