Решите пожалуйста Case6!

Вроде так, если только при переводе напутал
Pascal

var 
 a : real;
   c : integer;
    begin 
 writeln ('1 - дм');
  writeln ('2 - км'); 
 writeln ('3 - м');
  writeln ('4 - мм');
  writeln ('5 - см');
  readln (c);
  readln (a); 
   case c of 
 1 : a := a * 0.1; 
 2 : a := a * 1000;   //Три нет так как число не изменяется
 4 : a := a * 0.001; 
 5 : a := a * 0.01; 
end; 
 writeln (a,'м');   
end.