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

Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end