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

Program Auto;
var
car_speed, distance, total_outgo: integer;
uses crt;
begin
writeln('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 
begin
total_outgo := 1 * (distance / 20);
end;
else 
begin
total_outgo := 1 * (distance / 30);
end;
writeln(total_outgo);
end.