Сделайте программу по информатике, пожалуйста. Очень срочно

Program Auto;varcar_speed, distance, total_outgo: integer;uses crt;beginwriteln('Enter speed of the car(km): ');readln(car_speed);writeln('Enter distance, which you need to cross(km): ');readln(distance);if car_speed > 50 then begintotal_outgo := 1 * (distance / 20);end;else begintotal_outgo := 1 * (distance / 30);end;writeln(total_outgo);end.