test_do_while.main

program test;
var i;
begin
i = 3;
do 
   begin
	i = i - 1;
	write i;
   end
while i != 0;

end .