Паскаль. Задачи по FOR и CASE

[onetwo]

Помогите, пожалуйста, решением 2 задачек по паскалю : )
Оператор For:
Дано вещ. число - цена 1 кг конфет. Вывести стоимость 1,2 1,4...2 кг конфет.
Оператор Case:
Единицы длины пронумерованы след. образом: 1 - дециметр, 2 - км, 3 - м, 4 - мм. Дан номер единицы 22 (Номер единицы длины и длина отрезка L в этих единицах (вещественное число). Вывести длину данного отрезка в метрах. )
Заранее спасибо!

[Dirt]

Привет.

kgcena:=33.54;
ves:=1;
for i:=1 do 5 do
 begin
  ves:=ves+0.2;
  cena:= ves * kgCena;
  writeln('Ves = ', ves:4:2,', cena = ', cena:4:2);
 end;

[IT-man]

{Оператор For:
Дано вещ. число - цена 1 кг конфет. 
Вывести стоимость 1,2 1,4...2 кг конфет.}

readln(price);
for i:=12 to 20 do 
writeln(i/10,'kg ---',i/10*price);
readln;

{Единицы длины пронумерованы след. образом: 
1 - дециметр, 2 - км, 3 - м, 4 - мм. 
Дан номер единицы 22 (Номер единицы длины и длина отрезка L
в этих единицах (вещественное число). Вывести длину данного отрезка в метрах. )}

var i:integer;l:real;
begin
readln(i,l)
case i of
 1: writeln(l/10,'m');
 2: writeln(l*1000,'m');
 3: writeln(l,'m');
 4: writeln(l/1000,'m');
 end;
 readln;
 end;

[onetwo]

спасибо большое за помощь .)