program Useless;{does nothing useful}
	var I:integer;
begin
	I:=0;
	while I<20 do
		I:=I+1
end.