помогите решить Паскаль

[АнтонМинин2016]

Единицы объема пронумерованы следующим образом: 1 - литр, 2 - миллилитр, 3 - декалитр, 4 - кубометр. Дан номер единицы объема и объем тела V в этих единицах. Вывести объем данного тела в литрах.

[min@y™]

А вопрос-то где?

[АнтонМинин2016]

Это такое задание и есть!

[min@y™]

Это такое задание и есть!

я это понимаю.
но вопрос-то где? Написал "помогите решить", значит что-то не получается.
чем помочь-то?

Вариант "напиши мне лабу целиком" недопустим.

[Dvoishnik]

var
 i:byte;
 obem:Longint;
begin
 Writeln('введите объем');
 readln(obem);
 Writeln('введите номер единици измерения'); 
 readln(i);
 Case i of 
 1: Writeln(obem);
 2: Writeln(obem/1000:2);
 3: Writeln(obem*10);
 4: Writeln(obem*1000);
 end;
 readln;
end.

а я добрый сегодня, почти)