var a;

begin
	a:= 0;
	do
		a:= a + 1;
	while 4 > 4;
end.