На фипи нашел такое ,и встал вопрос,откуда брать число 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.

readln(d); оператор, который считывает число d.
вероятно, тут нужно указать некоторое число d, при котором алгоритм выводит некоторый результат.
посмотрите задание более внимательно.