PROGRAM TuKpa6;
var 
v,g,a,f:char; 
time:real; 
lenght:real; 
speed:real; 
BEGIN 
  writeln('Выберите раздел:'); 
  writeln('1-физика'); 
  writeln('2-геометрия'); 
  writeln('3-алгебра'); 
  writeln('Ваш выбор: '); readln(v); 
  case v of 
  '1': begin 
    writeln('Выберите действие'); 
    writeln('1-узнать скорость'); 
    writeln('2-узнать путь'); 
    write('Ваш выбор: '); readln(f); 
      case f of 
      '1': begin 
          writeln('Введите время пути в часах'); 
          readln(time); 
          writeln('Введите длину пути в киллометрах '); 
          readln(lenght); 
          speed:=lenght/time; 
          writeln('Скорость=', speed:5:1,'км/ч') 
           end; 
      '2': begin 
          writeln('Введите скорость движения в км/ч'); 
          readln(speed); 
          writeln('Введите время пути в часах'); 
          readln(time); 
          lenght:=speed*time; 
          writeln('Путь=', lenght:5:1,'км'); 
           end; 
      else writeln('Ощибка, такого пункта нет!'); 
      end; 
        end;
  end;
END.