Запишите число, которое будет напечатано в результате выполнения
следующей программы. Для Вашего удобства программа представлена на пяти
языках программирования.
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.