задачки 2шт

[Pandemona]

Здравствуйте.
Оператор цикл с параметром
1)
Одна штука некоторого товара стоит 20,4 руб. Напечатать таблицу стоимости 2, 3, ..., 20 штук этого товара.

Вложенные циклы
2)Напечатать числа в виде следующей таблицы
а)
1
22
333
4444
55555
б)
55555
6666
777
88
9
в)
1
0
22
00
333
000
4444
0000
55555
00000
г)
55555
1111
0000
111
555
22
00
2
5

[Dekio]

program n1;
var 
i :integer;
n :real;
begin
n:=20.4;
for i:=1 to 20 do
begin
write(i,' штук = ', i*n:3:1,' рублей');
writeln;
end;
end.