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

Program katrinzaytc; Var speed, distance, o: real; Begin   writeln('Введите скорость автомобиля (км): ');   readln(speed);   writeln('Введите расстояние, которое вам нужно пересечь (км): ');   readln(distance);   if speed > 50 then     begin     o := 1 * (distance / 20);     end   else     begin     o := 1 * (distance / 30);     end; writeln('Колличестов литров бинзина, расходуемое на путешестивие = ', o:0:3); end.