Запишите наименьшее целое число 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
кон