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

Const
  prise = 20.4;
var
  i:integer;
begin
  for i:=2 to 20 do write(i,' штук(и) -- ',prise*i,' рублей(я)',#13#10);
end.