Одна штука некоторого товара стоит N руб. Напечатать таблицу стоимости 5, 6, ..., 25 штук этого товара

Программа на паскале:
var n,k:integer;
begin
write(N = ); readln(n);
for k:=5 to 25 do writeln(k:2,k*n:5);
end.

Пример:
N = 12
  5 60
  6 72
  7 84
  8 96
  9 108
 10 120
 11 132
 12 144
 13 156
 14 168
 15 180
 16 192
 17 204
 18 216
 19 228
 20 240
 21 252
 22 264
 23 276
 24 288
 25 300