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.