//PascalABC.NET версия 3.2, сборка 1467
//Если программа не запускается, то обновите версию
begin
// все переводим в си
var petrolium_massa_per_liter := 5.68/8;
var tank_capacity_liters := 500*10*10*10;
var whole_petrolium_massa := 1*1000;
writeln(tank_capacity_liters * petrolium_massa_per_liter >= whole_petrolium_massa);
end.