помогите пожалуйста написать программку в "TurboPascal".Вот задание "Найти, довольно

Program abc;

var
  a, b, c, d: real;

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