Задание под б помогите

var t,k:integer; begin t:=1; for k:=2 to 5 do t:=t*k; writeln(t); end. Результат: 120 Таблица (правильная): k   t     1 2  1*2=2 3  2*3=6 4  6*4=24 5  24*5=120