var k:integer; l:real;
begin
writeln('введите длину отрезка');readln(l);
writeln('Введите единицу измерения числом: 1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр'); readln(k);
case k of
1: writeln(l,' дм = ',l/10,' м');
2: writeln(l,' км = ',l*1000,' м');
3: writeln(l,' м = ',l,' м');
4: writeln(l,' мм = ',l/1000,' м');
5: writeln(l,' см = ',l/100,' м');
end;
end.