program SpeedTimeDistanceCalculator;

var
choice: integer;
speed, time, distance: real;

begin
writeln('Выберите что вы хотите найти:');
writeln('1 - Скорость');
writeln('2 - Время');
writeln('3 - Пройденное расстояние');
readln(choice);

case choice of
1: begin
writeln('Введите время (часы):');
readln(time);
writeln('Введите расстояние (км):');
readln(distance);
speed := distance / time;
writeln('Скорость = ', speed:0:2, ' км/ч');
end;
2: begin
writeln('Введите скорость (км/ч):');
readln(speed);
writeln('Введите расстояние (км):');
readln(distance);
time := distance / speed;
writeln('Время = ', time:0:2, ' ч');
end;
3: begin
writeln('Введите скорость (км/ч):');
readln(speed);
writeln('Введите время (часы):');
readln(time);
distance := speed * time;
writeln('Пройденное расстояние = ', distance:0:2, ' км');
end;
end;

end.