Масса 8 литров бензина 5,68 кг. Цистерна имеет объем 500 м^3. Хватит ли её, чтобы вместить X тон бензина- Pascal(Паскаль)

var
  m, x, V, vv: real;
  pl: real;

Begin
  write('Massa benzina: ');
  readln(m);
  write('Obem: ');
  readln(V);
  pl := m / V;
  write('Obem tsisterni: ');
  readln(vv);
  write('Massa X: ');
  readln(x);
  if x <= vv * pl then
    writeln('Xvatit')
  else
    writeln('Ne khvatit')

end.

var
  x, a: real;

Begin
  read(x); // esli kh vvodim v kg
  a := x * 8 / 5.68; // v litrakh
  if a <= ((5.68 / 8) * 500 * 1000) then // sravnivayutsya znacheniya v litrakh
    writeln('Xvatit')
  else
    writeln('Ne khvatit')

end.