Question

Задания надо решать через while ​

Answer 1

var

variable111: integer;

begin

variable111 := 15;

while variable111 <> 0 do

begin

write('УРОК ');

variable111 := variable111 - 1;

end

end.