var d, b : Integer;begin
b := 10; d := 50;
while d >= b do d := d - b;
Writeln('Значение переменной d = ', d);end.
ответ: d = 0
var
d, b : Integer;
begin
b := 10;
d := 50;
while d >= b do
d := d - b;
Writeln('Значение переменной d = ', d);
end.
ответ: d = 0