На фипи нашел такое задание,и встал вопрос,откуда брать число d???

var k, s, d: integer; begin readln(d); s : = 0; k := 0; while k < 100 do begin s : = s + 32; k : = k + d ; end;write (s); end.