Запишите наименьшее целое число d, при котором значение переменной s =96

Бейсик

DIM k, s, d AS INTEGER
INPUT d
s = 0
к = 0
WHILE к < 100
	s = s + 32
	к = к + d
WEND
PRINT k

Паскаль

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 (k); end.

Си

{
	int k, s, d;
	scanf ("%d", &d);
	s = 0;
	к = 0;
	while (k < 100) {
		s = s + 3 2;
		к = к + d;
	}
	printf("%d", k);
}

Алгоритмический язык

нач
	цел k, s, d
	ввод d
	s : = 0
	k := 0
	нц пока k < 100
		s := s + 32
		k := k + d
	кц
	вывод k
кон